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ABSTRACT 


This document describes considerations and requirements for attaching an IBM 
3725 to an IBM Token-Ring Network using the Network Control Program Token-Ring 
Interface CIBM 3725 NTRI) and supporting software. Although this version of 
the document only considers use of the IBM 3725 Communication Controller to 
connect the Token-Ring Network to the host, most of the content of the document 
will apply to the IBM 3720 Communication Controller as well. 


The document is intended for personnel who need information and guidelines for 
attaching an IBM Token-Ring Network to a System/370 type host and for installing 
typical applications in such an environment. 
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PREFACE 


This publication is intended to provide information for personnel who need to 
attach an IBM Token-Ring Network to a System/370 type host and to get applica- 
tions running in such a environment. 


The material assumes some knowledge and experience with IBM Communication Pro- 
ducts and Workstations. The subject matter in this document applies to the 
current releases of the following IBM Products: 


ACF/SSP Version 3 Release 2 
ACF/HCP Version 4 Release 2 
ACF/VTAM Version 3 Release 1.1 
Netview CNPDA Version 3 Release 3) 


ee ¢ @ 


The document is organized as follows: 
® INTRODUCTION 


The introduction provides a review of IBM Token-Ring Network concepts and 
an introduction to host attachment via the IBM 3725 Network Control Program 
Token-Ring Interface. 


° IBM 3725 TOKEN-RING NETWORK HOST ATTACHMENT 


This section describes the implementation of the IBM 3725 Token-Ring Sub- 
System CTRSS) and the Network Control Program enhancements to support the 
Token-Ring. 


° PLANNING and IMPLEMENTATION - HOST COMPONENTS 


Host software dependencies and customization planning considerations are 
discussed in this section together with examples of definitions used in 
tests conducted at the International Technical Support Centre - Raleigh. 


Topics discussed include: 


ee Addressing and Naming Considerations 
— Configurations and Performance Considerations 
= VTAM and NCP Definitions and Suggested Parameters 


° PLANNING - TOKEN-RING NETWORK ENVIRONMENT 


This chapter provides a description of System product dependencies for host 
communication in the Token-Ring Environment, and some considerations for 
selecting these products. 


° LIORKSTATION SOFTWARE FOR HOST COMMUNICATION 


This chapter describes the planning and implementation requirements for 
Personal Computer Workstation Products supporting host communications. 
Installation definitions are related to corresponding host system defi- 
nitions to enable the user to understand the relationships and interde- 
pendence of specific parameters in the two environments. 


e SAMPLE CONFIGURATIONS AND BACKUP CONSIDERATIONS 
This chapter introduces additional considerations for planning a Token-Ring 
Network with host attachment. Various configuration scenarios are de- 
scribed together with samples of backup procedures. 

° NETWORK IMANAGEMENT AND RECOVERY 
Concepts of error recovery ina Token-Ring Environment and the tools to 


support various network management capabilities are described in this 
chapter. 
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PROBLEM DETERMINATION 


This chapter describes problem determination using system trace facilities. 
A trace example is provided together with guidelines for interpreting it. 


Appendix A - PLANNING and IMPLEMENTATION - LIST of TASKS 


This appendix supplements Chapters 3, 4, and 5 by summarizing and inte- 
grating the planning and installation tasks for both the host and Token-Ring 
environments. 


Appendix B - PLANNING AND IMPLEMENTATION - WORKSHEETS 

This appendix provides sample worksheets for the installation tasks for both 
the host and Token-Ring environments so that a record may be maintained and 
so users or systems programmers can ensure the consistency of their defi- 
nitions. 

Appendix C - SAMPLE SOURCES FOR NCP, VTAM and CICS 


This appendix lists the definitions used in the tests conducted at the 
International Technical Support Centre - Raleigh. 


Appendix D ~ TRACE EXAMPLE 


This appendix provides a trace example obtained in the tests conducted at 
the International Technical Support Centre - Raleigh. 


Appendix E ~ SAMPLE SOURCE FOR APPC/PC and TRANSACTION 

This appendix provides a listing of the source code used in the Personal 
Computer to interface with CICS at the host. The host application used was 
the sample APPC program distributed with CICS/VS Rel 1.7. 


Appendix F - PUBLICATION REFERENCE 
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1.0 INTRODUCTION 


1.1 IBM TOKEN-RING NETWORK EVOLUTION 


The IBM Token-Ring Network is a strategic IBM architecture and set of products 
to address the requirements for flexible communications between systems and 


workstations within an establishment. Early SNA networks were hierarchical in 
structure, consisting of one or more ‘host!’ or primary communications systems 
and a number of terminal or secondary systems devices. Communication sessions 


in this environment involved a Master-Slave relationship. Increased avail- 
ability of intelligent terminals and distributed systems has created a need for 
peer-to-peer as well as master-slave communications sessions within today's 
office buildings. Local Area Networks CLANS) have evolved to address the wiring 
and communications needs of offices and other buildings. The Token-Ring Network 
16 a particularly flexible Local Area Network implementation, capable of sup- 
porting a Wide variety of workstations, systems, and topologies. 


The architecture is based upon requirements to support many types of devices 
and systems in environments ranging from a few network stations ona single ring 
to several interconnected rings. The use of token-passing rings with bridging 
capabilities provides an environment in which requirements for network growth, 
problem determination and network management can be accommodated with minimal 
disruption. In addition, the token-passing protocols permit a deterministic 
approach to capacity planning and performance analysis. 


Such characteristics, combined with a detailed architecture definition, have 
led to the adoption of Token-Ring protocols as IEEE and IS0 (0SI-related) 
Standards. 


The product implementations are based upon the IBM Cabling System, which con- 
sists of a variety of cable types and accessories to permit the attachment of 
individual workstations to large systems. Simple networks (consisting of PC's 
on a single ring) to complex networks (consisting of multiple rings with 
intermediate systems or direct host system attachment) are possible. 
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1.2  TOKEN-RING NETWORK CONCEPTS 


The IBM Token-Ring Network is a general purpose Local Area Network (LAN) with 
the topology of a star-wired ring, using baseband signalling and token-passing 
protocols, in conformance with the IEEE 802.5 standards for transmission con- 
trol. Device attachments conforming to the IEEE 802.2 and 802.5 standards may 
communicate over an IBM Token-Ring Network. 


The token passing technique for ring access control is based on a predefined 
bit pattern, called a Token, which continuously circles the ring. When a station 
has data to transmit, it waits until its station adapter detects a ‘token’ bit 
pattern (Token bit = 0). 3 

When the station waiting to send receives a token, it starts transmission of 
the data as follows. 


The transmitting station creates a 'frame' by setting the Token bit to '1' and 
inserting the destination and source addresses, other control information and 
the data to be sent to the destination address. During the time the frame is 
being transmitted, no token is available on the ring (Token bit = 1). and no 
other station can initiate a transmission. The frame is passed (received and 
retransmitted) by all stations on the ring until the station with a matching 
destination address receives it. 


The destination station copies the data to its internal memory and retransmits 
the frame after setting control bits to indicate that it recognized the address 
and successfully copied the data. 


When the frame returns to the originating station with control bits indicating 
successful transmission and receipt, it 1s removed from the ring. A new token 
is then created and transmitted, thereby permitting other stations to send data. 


Successful interpretation and retransmission of the 24-bit token around a ring 
requires a minimum 24-bit delay for each circulation of a token or frame. 
However, this does not impact performance because the ring has a speed of 4 
megabits per second. 


1.3  TOKEN-RING NETWORK HOST ATTACHMENT 


Like any other Network Station, the IBM 372X Communication Controller has an 
adapter interface to the Token-Ring which supports the Token-Ring protocols. 
In the 372X, this adapter is called the Token-Ring Interface Coupler (TIC). 


The mapping of Token-Ring protocols to SNA protocols is implemented by the NCP 


Token-Ring Interface CNTRI? which is part of ACF/NCP V4R2. It provides a ca- 
pability to exchange data between Subarea Networks and IBM Token-Ring Networks. 
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1.4 TOKEN-RING, SNA, OST AND IEEE 


The Token-Ring architecture is a layered communications architecture that spans 
two defined layers, the Data Link Control (DLC) layer and the Physical layer. 
The Data Link Control layer is further subdivided into two sub-layers, Logical 
Link Control CLLC) and Medium Access Control (MAC). 


When an IBM 372X Communication Controller is attached to a Token-Ring, the SNA 
Physical Services and Data Link Control (DLC) layers are functionally replaced 
by the Token-Ring protocols to support the IEEE 802.5 and IEEE 802.2 standards. 
This support is provided by a Token-Ring Subsystem in the 372X and by new 
functions in ACF/NCP VG&R2. 


The following figure shows the relationship between the two lower layers of the 
OSI model, the SNA layer definitions and the IEEE 802.2 and 802.5 standards. 


OSI Model SNA Layers 


Application Application 


Presentation 


Session 


Func. Mgmnt. 
Data Flow Ct 


Transport Trans. Ctr 
IEEE 802.X IEEE 
Network Model Path Control STD. 
Data 802.2 
Link 
Control 
802.5 
Physical Ser 
Figure 1. Layer relationships 
Standard Token Ring IEEE 802.x Layer Definitions: 
IEEE 802.2 - Logical Link Control Standard (LLC Sublayer) 
IEEE 802.5 - Token Ring Standard (Physical Layer and MAC Sublayer) 


Introduction 3 


1.5 TOKEN-RING HOST ATTACHMENT - VIEW FROM VTAM 


Each physical. connection to an IBM Token- rhs SEN OK is viewed by VTAM as a 
leased full-duplex point-to-point line. a 


Each logical connection to an IBM Token-Ring Network Station is viewed by VTAM 
as a switched half-duplex point-to-point Line and is defined in VTAM as a VTAM 
switched Hazen Hode. 


With this approach, NTRI- 1s transparent to ACF/VTAM and IBM subsystems. 
HTRI allows pre-definition of logical links for Token- Ring devices. Thus ad- 


dition of new terminals does not require definition and generation of a new NCP 
module. 


HOST | 3725 


TERM. A 
 PU.T2 
TERM.B 

PU.T2 


Figure 2. Physical Configuration 


¥*¥*XX Physical Attachment CTIC) KKK KK EKKKRX 


HOST 3725 


x % 
x x 
% % 
x FDX leased Point-to-point x 
* SSSSSS SSB SSS SS SSSTSSSSSSSSSSS=S=z= PU.TI1 x 
¥ % 
¥ X 
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Figure 3. Corresponding logical Configuration 
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1.6 TOKEN-RING LAYERS AND FRAMES 


Standards for Local Area Networks are based upon the two lower levels (Data Link 


Control and Physical Control) of layered systems architectures such as OSI and 
SNA. 


Each node in a IBM Token-Ring Network contains a Data Link Control (CDLC) layer. 
DLC includes manager functions (DLC.LAN.MGR) and covers two sublayers, Link 
Level Control CLLC) and Medium Access Control (MAC). The DLC.LAN.MGR supervises 
the operation and directs the flow of information through the MAC and LLC sub- 
Se It also controls link activation and the attachment or removal of ring 
stations. 


The physical layer provides the attachment to the medium Cring). This includes 
the cable from the adapter and the Multiple Station Access Unit (MSAU). 


The unit of transmission in the IBM Token-Ring Network is called a frame. Such 
a frame is created when a node transforms a token and adds data to it. A frame 
is composed of the data to be sent, control information, application interface 
types, the source address and the destination address. 


Each layer uses or adds its information to the frame and transfers a defined 
layout to the next higher or lower layer. The frame as it is transmitted around 
the ring contains all information added by the different layers and sub-layers. 


The Token: 


Starting Delimiter 
Access Control (bit 3=0 indicates Token) 
Ending Delimiter 


oN 
© > 
om 
> 
oO 
oui tl 


The Token Ring Frame: 


some : 4/4 — 
STATF] Destination Source Rout. LLC Protocol {Frame EIF 
DiICiC! Address Address Info. Data Unit Chk.Seq.|DIS 
ae & // 
/ 4/ 
DSAP SSAP Control Information field 
Addr.| Addr. field see field data types below: 
17 // 
SD 


Starting Delimiter 


AC = Access Control 

FC = Frame Control Field 
ED = Ending Delimiter 

FS = Frame Status Field 


Figure 4. Token and Token-Ring Frame Format 


Information Field Data Types: 


e SNA data -> PIU CTH/RH/RU - User data...) 
e Control data 
e Hon-SNA data Ce.g. NETBIOS data) 
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1.6.1 Interface batuween LLC and Higher Layers 


The IBM Token-Ring Network uses Service Access Points (SAPs) designated in the 
architecture as code points through which an application may be defined to the 
LLC software. SAPs are the interface between the LLC and the Higher Communi- 
cation Layers. 


The IBM Token-Ring Network Architecture defines several SAPs, including SAPs 
for the SNA interface, the NETBIOS interface and non-SNA COSI) interfaces. LLC 
software uses the SAP address (Cone byte) to determine whether it is using SNA 
or non-SNA connections. 


The defined code point (SAP) between the IEEE 802.2 Link Level Control layer 
and the SNA Path Control layer is X'04' 


The data units exchanged between Path Control and LLC are called Path Informa- 
tion Units (CPIUs). 


LAN Station 


(e.g. IBM PC) ACF/NCP with NTRI ACF/VTAM 
/ 
S P P 
APPC/PCIA Ring 0 
P H H P T 
A H 
Y Y T E 
M M H R 
S S S S 
NETBIOS|A A A AIC 
—| x P I I P10 
inote 1 C C N L 
C C T A 
R Y 
) A A | 0 E 
3270 Emu {A} | L R 
P L L S 
/ 


Figure 5. Token Ring Application Interfaces 


Note 1: There is no NETBIOS SAP support within NTRI. Therefore, 
See eneniee applications using the NETBIOS interface to access LLC 
cannot communicate with a subarea host. 
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1.7 TOKEN-RING NETHORK ADDRESSES 


1.7.1 Universal or Locally Administered Adapter Addresses 


Each Token-Ring Adapter has a unique adapter address. Multi-vendor assignment 
of these addresses 1s administered world-wide by the IEEE. 

Several terms are used for this address: ‘burned in’ address, ‘hard’ address, 
or universal address. Using this universal address guarantees that the adapter 
address 15 unique. 


The adapter can also be loaded with a locally administered, Cor 'soft') address. 
The uniqueness of this 'soft' address must be locally administered. 


If a Token-Ring Network is attached to a host, the usage of locally administered 
addresses is recommended because for a dial-out connection the adapter address 
must be equal to the dial number in the PATH statement of the VTAM switched major 
node. In this situation, a locally administered address allows portability of 
the network station, exchange of the adapter card in case of an error, and 
pre-definition of network stations in VTAM. 


1.7.2 Token-Ring Network Addresses - Types 


The Token-Ring adapter address field is 6 bytes (48 bits) in length and is, with 
minor variations in format, used as source address and destination address in 
frames. 


Each 372X (TIC) is also represented with an adapter address which must be a 
locally administered address. For example, the locally administered TIC address 
is used as the destination address when a workstation (PC) wants to communicate 
with a host using IBM PC 3270 Emulation or APPC. 


A destination address can be either an individual address or a group address. 
An individual address addresses a specific destination where a group address 
15 assigned to a collection of SAPs. 


Special group addresses, called Functional Addresses, are defined to represent 
functions that are independent froma physical location because the destination 
address 1s not known by the station requesting the function. A typical example 
for such a functional address is the Monitor Function of a Token-Ring. Stations 
with defined functions will accept the functional address as the destination 
address. 


Another special destination address is a Broadcast Address (all address bits 
on, x'FF') to denote all stations ona ring. 
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1.7.3 Source, Destination and Adapter Address Formats 


Source Address Format: 


a en ae Ie ee 


not 
applicable 


—> 8 local admin. or ‘burned in’ digits 
> U Cuntv.) or L Clocal admin) address 
> Routing Indicator. Bit on if Routing 
Information in the frame. 


Destination Address Format: 


01 2< 


O>;I TU 
/\i/7| Reserv. |FA 
1>I|GiL 


>15 16 Le Serre ee 


8 local admin. or ‘burned in’ digits 
Functional Addr. Cif bit is on) 

U Cuniv.) or L Clocal admin) address 
Individual or Group address 


VvVV Vv 


Adapter Address — Decimal Representation: 


Example for a locally administered Chighest possible) individual address 


|4000 7999 9999| : So 
, -—> 8 local admin. digits Cused by dial=out) 
von > Max. Value = 7 with NTRI 
| > 
> 


Reserved 
Bit 1 on indicates that it is a 


local admin. individual address 


Figure 6. Address Formats and Layouts 
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1.8 TOKEN-RING NETHORK - ROUTING 


When a Token-Ring Network consists of multiple rings connected by bridges, a 
station on the ring can communicate with another station on any other ring in 
the network as long as no more than seven bridges must be crossed by a frame 
traveling between the two stations. 

The use of bridges is transparent to higher level applications running on the 
station and to connections between ring stations and subarea hosts. For ap- 
plications written at the LLC interface, the use of bridges is no longer 
transparent. 


The path a frame will follow through the network from a source to a destination 
station during a session is dynamically determined by the routing function. 
Imbedded itn each transmitted frame is all the required information about the 
route (or path) to be followed through the Token-Ring Network. 

There is no need for any centralized routing tables. There is also no limit, 
except perhaps for a limit imposed by the impact on performance, to the number 
of concurrent sessions which may use a bridge. 


1.8.1 Routing Concept 


When a session 1s initiated, a search is performed to acquire the required 
routing information. The source station can initiate a search by issuing a TEST 
or XID CExchange Identification) LLC command on its local ring. If a response 
1s not received, the destination station is not active on the local ring. The 
source station then broadcasts a TEST or XID command to all rings. This frame 
fans out through the network by being passed through all active bridges. As a 
frame passes a bridge, the bridge inserts its Ring ID into the frame’s Routing 
Information field. 


This mav create multiple copies of the "Search! frame and each copy will con- 
tinue to be passed through the network searching for the destination station. 
This process wWill continue until one or more copies of the frame reach the 
destination station. Each time a frame passes through a bridge is called a hop. 


Search frames are deleted from the Network when they attempt to cross the same 
bridge a second time, when they attempt to cross the eighth bridge, or when a 
maximum ‘hop count’ has been reached. 


Each frame reaching the destination station will have imbedded in it the ID's 
of all the bridges it crossed, in the sequence in it crossed them. The desti- 
nation station sends the frame copies back to the source station. Each follows 
the same route it used to get to the destination station, but in the reverse 
direction. The first response to reach the source station 15 accepted as con- 
taining the best currently available route to the dastination station. Any 
other responses received by the source station are discarded. 


The destination station determines the preferred route (from the routing in- 
formation field) when it receives the first non-broadcast frame from the source 
station. It will use that route for any subsequent transmissions to the source 
station. Therefore, all subsequent transmissions during the session will follow 
the same route. 


TEST and XID Command Function 


Both the TEST and the XID commands cause a search for a route to a destination 
station to be performed. The TEST command causes the destination station to 
return a TEST Response, and performs only a basic test of the transmission path. 
The XID command conveys the identification and characteristics of a source 
station. The response to a XID indicates the class of service supported and the 
maximum receive window size of the destination station. This denotes the maximum 
number of unacknowledged sequentially numbered frames that can be received. 
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Conclusion 


The route used may change between sessions because of the traffic load existing 
on the ring and bridges when the route is established. This process tends to 
dynamically balance the overall network load. 


The Token-Ring Network routing concept is also applicable for the 372X Token- 
Ring adapter (TIC). The routing is transparent to VTAM and no detailed path 
information is required to define a route in a Token-Ring Network. 


1.9 INTRODUCTION TO SNA (FOR PC USERS) 


Systems Network Architecture (SNA) is a definition of communications structures 
and protocols which provide functions that enable end-users to be relatively 
independent of the network's characteristics and operations. These functions 
are implemented in network ‘nodes’ (Cprocessors, controllers, or workstations) 
by network resources which fall into two basic categories: Network Addressable 
Units and the Path Control Network. 


Network Addressable Units (NAUS) enable end-users to send data through a network 
and help network operators perform network control and management functions. 
Network Addressable Units provide functions to: 


e Synchronize communication between end-users 
° Manage the resources in a node 
e Control and manage the network 


Each NAU has an address that identifies it to other NAUS and to the Path Control 
Network. The Path Control Network uses this address to route data between NAUs. 
SNA defines three kinds of Network Addressable Units: Logical Units, Physical 
Units, and System Services Control Points. 


Every end-user gains access to an SNA network through a Logical Unit (CLU). 
Logical Units manage the exchange of data between end-users according to a 
common set of rules or protocols. The Logical Unit thus acts as an intermediary 
between the end-user and the network. (There doesn't have to he a one-to-one 
relationship between end-users and LUs. The number of end-users who can gain 
access to a network through the same LU is an implementation design option, and 
is expressed in terms of the LU profile or type.) 


LU-LU Sessions: Before end-users can communicate with one another, their re- 
spective LUs must be connected in a mutual relationship called a session. Be- 
cause this session connects two LUs, it 15s called an LU-LU session. Multiple 
concurrent sessions between the same two logical units are called parallel LU-LU 
SeE5SIi0NS. 


The architecture defines different kinds of logical units called LU Types. 
Since SNA vas announced, IBM has developed a number of LU Types to handle the 
communications requirements of a variety of end-users. 


Every node contains one Physical Unit (PU) to manage the links that connect the 
noda to adjacent nodes. The PU represents the processor, controller, work- 
station, or printer to the netvork. Physical Units, like other NAUS, are im- 
plemented by a combination of hardware and software components within each node. 


System Services Control Points (SSCPs) provide the capability to activate, 


control, and deactivate network resources in special nodes (called host subarea 
nodes) because of the way they define and control the network resources. 


The Path Control Network routes and transmits data between network addressable 
units. The Path Control Network provides functions to: 


° Transmit data across links between adjacent nodes 
e Route data between nodes 


For more information about Systems Network Architecture, refer to SNA Concepts 
and Products Reference -— GC30-3072. 
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1.10 PU T2.0, PU T2.1 AND LU 6.2 
e PU T2.0 1s a hierarchical Cprimary-secondary) implementation of SNA that 
supports many host applications (from LU TO to LU T6.2) 


e PU T2.1 provides peer to peer connectivity. Devices supporting PU T2.1 in- 
clude: PC, $/36, S/38, 5/88, Series/l. ; 


e LU 6.2 provides Application to Application Communication CAPPC). Examples 
for Application Subsystems providing APPC support are CICS/VS (System/370) 
and APPC/PC CIBM PC). Other systems supporting APPC are 5/36, S$/38, S88, 
and Series/l. 


e For peer PU T2.1 connections, only LU 6.2 sessions are supported. All other 
‘LU types (not 6.2) require an SNA SSCP. 


e Currently all peripheral nodes attach to SNA subarea hosts as PU T2. Even 
those systems which implement PU T2.1 for peer communication with other 
systems Ci.e. a PC with APPC/PC) still appear as PU T2.0 to the host system 
CVTAM/NCP). 


In summary, an IBM PC attached to a Token Ring Network supports the following 
types of SNA communication: 


- PU Type 2.1 for peer communication Cusing LU Type 6.2) with other 
PCs, $736, S$/38 and Series/l. 
- PU Type 2.0 for 3270 Emulation (using LU Types 1,2,3) and for APPC 


Cusing LU Type 6.2) to communicate with a System/370 type host. 
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2.0 IRM 3725 TOKEN-RING NETWORK HOST ATTACHMENT 


The IBM Token-Ring Network host attachment support 1s provided by two new com- 
ponents for the IBM 3725 Communication Controller: 


° Hardware - The Token-Ring Subsystem CTRSS) - which includes the 
Token-Ring Multiplexer's CTRMs) and 
Token-Ring Interface Coupler's (TICs) 

° Software - The NCP Token-Ring Interface (CNTRI) 


The TRSS can be installed in existing 3725 CCUs, and the supporting software 
15 part of ACF/NCP VG4R2. With these two components, the 3725 can be directly 
attached to an IBM Token-Ring Network. (The IBM 3720 Communication Controller 
will use the same facilities.) 


There are no changes in VTAM because the NTRI support 1s transparent to 
ACF/VTAM. VTAM uses two types of connections. The first addresses the physical 
attachment Cbetween the SSCP and the TIC) which is defined as a full-duplex 
leased line. The second defines one or more logical connections between LUs 
which are defined in VTAM as Switched Major Nodes on half-duplex switched lines. 


HOST NPDA V3R3 > NEW FUNCTIONS 
with SNA APPLICATIONS or 
ACF/SSP NTRI SUPPORT 
V3R2 

* *% ACF/VTAM % 

x¥——*X % 
LOGICAL >*% * | ¥ < PHYSICAL CONNECTION 
CONNECTIONS | x x X | (One for each TIC) 

X—% X— 

% % Xx 

t— —— x + > 
3720 or 3725 * %* INN FUNCTION ¥ To other 372X 
with t— k§ ——_ x— CINN not supported 
ACF/NCP V4R2 * % BNN FUNCTION ¥ jthrough the LAN) 

¥ — XX —_________—______--___- x 

* »% NTRI FUNCTION x 

X—%* 

* * VV YV VVVV -> Up to 8 TICs 


V 


TR LAN 

MANAGER 

ee 
WORKING IN 


MIGRATION MODE 


Figure 7. Host Attachment - Schematic View 
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2-1 THE TOKEN-RING SUB-SYSTEM (TRSS} 


The IBM 3725 Communication Controller has been enhanced to support the IBM 
Token-Ring Network. Release Level 4 of the 3725 is required for this support. 
In addition, a new Communication Controller CIBM 3720) has been announced which 
Will also provide this support. 


The 3725 attachment to the IBM Token-Ring Network is made by: Token-Ring Sub- 
System (TRSS), a new Transmission Sub-System, and by new functions for the: 
Maintenance and Operator Sub-System (CNOSS ) 


2.1.1 TRSS Components 


The following TRSS components are in the new Line Attachment Base Type C CLAB 
Cd: 


- A Token-Ring Multiplexer CTRM) 
- Token-Ring Interface Coupler's (TICs) 


The term TRSS represents the entire Token-Ring Attachment implementation in a 
3725 Communication Controller Complex €3725 and 3726). A TRSS may consist of 
up to two Token-Ring Adapters (TRA), one located in the 3725 and one in the 3726. 
If there is no TRA in a 3725, two TRAs can be installed in the 3726. (The term 
TRA should not be confused with a Token-Ring Adapter card.) The Token-Ring 
Adapter connection point to the ring is called a Token-Ring Interface Coupler 
(TIC) for the 372x. 


The Line Attachment Base Type C (LAB C) designates the 3725 board which includes 
a Scanner, the Token-Ring Multiplexer Card (CTRM) and the base for up to 16 
regular communication lines. 


A TRA consists of a Token-Ring Multiplexer CTRM) plus Token-Ring Interface 
Couplers (TICs). There may be up to four TICs per TRM. 


The Token-Ring Multiplexer CTRM) is the 3725 Bus adapter card. Its main ob- 
jective is to transform the TIC interface into the 3725 bus. 


A TIC contains a microprocessor under control of resident microcode. The TIC 
communicates with the TRM card for data transfer and is controlled by NTRI. 


Each TIC represents one physical Token-Ring connection. More than one TIC may 
be connected to the same Token-Ring. The data rate supported on the IBM 
Token-Ring is 4 Mbps (4 million bits per second). 


The TIC-Interface meets all the requirements of the IEEE 802.5 standard. 
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2.1.2 TRSS Structure 


This figure shows the structure of the Token Ring Sub-System components 
for a IBM 3725 Communication Controller. For a Controller Complex with 
both 3725s and 3726s, a second set of components Cillustrated in the 
starred box) can be added. 


3725 


CCU 


NCP Token-Ring Interface 


LAB Type C 
HK HHH HK HE IH HH HK IK EK HK HE I KK HE EE EK KKK KK KK KK RK KKK HK KKK KKK 


*Coupler 
* (LIC) 
x 


% % 
bas Communication Token-Ring % 
¥ Scanner Processor Multiplexor * 
¥ * 
x % 
% x 
* 
¥Line 4 
XInter— x 
* face x 

x 

x 

¥ 

x 


A | A | A [oA | 
V V 


Token- Token- Token- Token-— 
Ring Ring Ring Ring 


Figure 8. The Token—-Ring Sub-System (TRSS) 
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2.2 THE NCP TOKEN-RING INTERFACE (NTRI) 


2.2-1 Objectives of NTRI 


NTRI is designed to provide users with a means to attach an NCP Communication 
Controller to the IBM Token-Ring Network using one physical medium, one at- 
tachment scheme and one communication protocol. NTRI permits attachment to IBM 
Token-Ring Networks through one or more physical links. 


NTRI supports a IBM Token-Ring interface on the 372X so that the user can im- 
plement and carry forward the creation and installation of a Token-Ring Local 
Area Network and can start implementing data processing solutions in this en- 
vironment. 


NTRI provides a basic Boundary Network Node (BHNN) interface to support 
SNA-to-SNA communication of devices attached to a Token Ring Network. 

NTRI does not support the Intermediate Network Node CINN) facility of ACF/NCP 
through a Token-Ring Network which means that it is not possible to connect two 
ACF/SNCPS using the Token-Ring Network. 


2.2.2 NITRI Environment 


Support of NTRI requires a number of new facilities inside ACF/NCP V4R2. 


A 3725 with NTRI may be connected directly to a maximum of 8 token-rings, re- 
gardless of the number of interconnecting bridges between these token-rings. 
several TICs may be connected to the same ring (e.g. to provide backup support). 


NTRI uses the Boundary Network Node (BNN) of NCP and provides connectivity to 
PU T2.0 and PU T2.1. With the current implementation of the ACF/NCP Boundary 
Network Node (BNN) function, PU T2.1 is supported only in migration mode, which 
is like PU T2.0. 


2.2.3 NTRI Components in ACF/NCP V4R2 


The NTRI function is responsible for the physical connection of TICs, handling 
of SNA commands, Beacon and Medium Access Control (MAC) Frames and monitoring 
TIC operative conditions. NTRI also provides support for the 3725 error re- 
porting mechanisms. 


Logical Link Control (LLC) is that function which handles the establishment of 
logical connections with LAN devices and the exchange of data. 


Medium Access Control CMAC) includes that function of NTRI which controls the 
TRM and TIC. 
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ACF/SSP V3R2 


Support of NTRI requires a number of new facilities within the ACF/SSP. The 
NTRI Generation process is part of the NCP/EP Definition Facility (NDF). This 


process allows the user to describe to NDF the attachment of an IBM Token-Ring 
Hetwork to the 3725. 


HetView - NPDA Component 


NPDA V3R3 supports Network Management Vector Transport (CNMVT) messages gener- 
ated by NTRI. 


NTRI generates three categories of NMVT messages. 


e NMVT Alert messages 
e NMVT Link Event messages 


e NMVT PD Statistic messages 


NetView - NLDN Component 


8 The Token-Ring Network is transparent to VTAM and therefore supported by 
NLDM across the NCP Token-Ring Interface. 


HOSS 


® Provides new facilities to support TRSS and NTRI including 


= Display of TIC addresses and status 
= TIC traces 
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2.3 NTRI - LOGICAL AND PHYSICAL CONNECTIONS WITH DATA FLOW 


2.3.1 Logical Link Control (LLC) 


LLC Connections 
A logical link connection is defined by the Destination Address (6 bytes), the 
Source Address (6 bytes), the Destination Service Access Point (DSAP: 1 byte). 
and the Source Service Access Point (SSAP: 1 byte) Refer to the introduction 
for more details. 


LLC Functions . 

The Link Level Control CLLC) layer is responsible for the establishment of the 
logical connection with a terminal and for the exchange and the integrity of 
the data. Data recovery is performed by the LLC. 

The PIU's of each logical connection waiting to be transmitted are separately 


queued for output and mapped to a specific physical connection. 
In the NCP generation a TIC is defined as PU Type 1 Clike a 3767). 


2.3.2 Physical Link Management 


Physical Link Management includes the following functions: 


° handling of the SNA commands and the internal requests (Inoperative condi- 
rae? to establish or cancel physical connections to the IBM Token-Ring 


e handling of Medium Access Control (MAC) frames received from the TIC. Re- 
member MAC frames are special frames exchanged between the adapters on the 
ring. Most of the MAC frames go up to the next higher layer, but Beacon and 
TIC internal MAC frames are processed by the PLM. 


e handling of 'Ring Status Change' events reported by the TIC. 


® handling of timer mechanisms which check that the TIC microcode is still 
running, thus avoiding a deadlocked or hung situation on the ring. It con- 
sists of sending an Interrupt request to the TIC every five seconds and 
monitoring for an Interrupt completion. If there is no Interrupt com- 
pletion, NTRI will force removal of the TIC ‘from the ring. 
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2.3.3 Physical Activation - Data Flow 


HOST LAN CTIC) 
COMMAND RESULT 
ACT. LINK 
TIC INIT 
-eenememennmarrmmarrenranenane > 
POS. RESP 
 searetterneererenotrnneenennent nena 
CONTACT 
POS. RESP 
Erneta 
OPEN SCB COMMAND 
CONTACTED 
| 
ACTPU 
POS. RESP 
Cee 
Figure 9. Generalized Representation of Physical Port Activation 
Explanations: 
TIC INIT - Initialization of the TIC Adapter 
OPEN SCB - Open TIC Adapter - Status Control Block 


(Detailed flow not shown) 
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2.3.4 Logical Connections - Outbound Call Data Flow 


HOST | , | DEVICE 
ACT. LINK (to TIC) 

ee > 
POS. RESP 

< 


CONNECT—OUT CDSAP/SSAP/DADDR) 
en REE TE rt mes onintscointtat Vt 
TEST CDSAP/SSAP/DADDR) >> to Find 
otemior svar oe eenenveennneneotnae tmiaen memes mets nseenanrantininc near eemmemirancnere, 
>> If Not Found 
TEST CBROADCAST) Search All Rings 
cece ene emeetreeertertn mere onetime tenner renenanatnitnanamariens 


| 
TEST (RIZDSAP/SSAP) << Found ? 
Cece cect A A A I 


| 
XID-0 (DSAP/SSAP) >> IEEE Format 
een en em nenerenen eeneranmerennnensamrnnaarernamarcecnnanttneensenann 


| 
XID-1 CIDBLK/IDNUM) << SNA Format 
REQ CONTACT |< 


CIDBLK,IDNUM) 
CONTACT CSTATION) > Set Asy. Bal. 
_—_— > Mode Ext. 
POS. RESP —_——— |] hUSABNE CDSAP/SSAP) Link Command 
Ce as 


UA CSAP/SSAP) 
CONTACTED < 
1 ene me cite spencers cence 
ACTPU 


Figure 10. Generalized Representation of Host Initiated Calls 


Notes re Figure 10. 


200 


Outbound calls (DIAL=OUT) are initiated by the operator, VTAM, or a program 
for such stations as an IBM 3174 Control Unit or a Workstation PC executing 
APPC/PC. DIAL=QUT is normally not used for PC 3270 Emulation, except in 
restart situations, where it might be useful. 

An IEEE format XID is first exhanged to establish connectivity at the LAN 
level. If this is OK, then a traditional SNA XID is issued. 

The values for IDBLK and IDNUM and the Data Flow can vary depending on the 
software used at a workstation. 

If a connection already exists, the CONNECT-OUT will refuse a request for 
a new connection with a negative response. 

In a multi~host environment, the logical link over which the connection is 
made can be ovned by a different VTAM than that which owns the physical port 
Ci.e. the TIC). 

Detailed flow not shown. 
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2.3.5 Logical Connections - Inbound Call Data Flow 


HOST DEVICE 
CONNECT-IN 
> 


SITS ASTAAASASAAAMAAA AAA AISA ALAA AAA AAA ASA AAAI AA AAA AAA AAA AA AAA AIS AAA 


TEST CDSAP/SSAP/DADDRC TIC) ) 
ec retired 


| 
TEST CRESPONSE) 


| 
XID-0 (DSAP/SSAP) 


SWITCH < 
CONHECT 
TERM. 
XID-0 CDSAP/SSAP) 
————— > 
| 
XID-1 CIDBLK/IDNUM) 
REQ CONTACT} < 
ei ail a ccna 
CONTACT 
—_———______——— > 
POS. RESP ee | USABIE CDSAP/SSAP) 
ore —_—_—— 
UA CDSAP/SSAP ) 
CONTACTED < 
Yn nan LE 
Figure 11. Generalized Representation of Inbound Calls 


Note re Figure ll. 


Inbound calls (DIAL=IN) are initiated by the workstation. This can result 
from the user selecting 'COMMUNICATION’ in the primary menu of the IBM PC 
3270 Emulation program, or an APPC/PC transaction calling a host (CICS) 
transaction. 

In a multi-host environment, the logical link over which the connection 15 
made can be owned by a different VTAM than that which owns the physical port 
(i.e. the TIC). 

The values for IDBLK, IDNUM and the Data Flow can vary depending on the 
software used at the workstation or LAN device. 

Detailed flows not shown. 


IBM 3725 Token-Ring Network Host Attachment 21 


22 IBM 3725 NTRI Planning and Implementation. 


3.9 PLANNING AND IMPLEMENTATION - HOST ENVIRONMENT 


This chapter contains planning and preparation information for System/370 host 
components required for TRN host communication. In addition, naming and per- 
formance considerations are presented in this chapter. 


Planning considerations for Token-Ring Products and Workstations are in sepa- 
rate chapters. 


3.1 PLANNING HOST ENVIRONHENT PRODUCTS FOR NTRI 


NTRI is a user definable option of ACF/NCP V4R2. ACF/VTAM has no specific code 
for NTRI because Token-Ring Network Stations are supported as regular SNA de- 
vices on switched Lines. 


The products containing new code to support NTRI are: 


ACF/NCP V4R2 
ACF/SSP V3R2 
NetView CNPDA V3R3) 


3.1.1 ACF/NCP V4R2 Product Requirements 


e ACF/SSP V3R2 is required to generate ACF/NCP V4R2 with NITRI support 
e ACF/NCP V4R2 requires EREP V3R2 or EREP V3R3 
e Operating Systems supporting NCP V4R2 with NTRI: 


MVS/XA 
MVS/7370 
VM/SP R& 
VM/7SP HPO R4 


e Versions of ACF/VTAM supporting communication with NCP V4&R2 and NTRI: 


ACF/VTAM V3R1.1 --> only this version supports CNM for NTRI 
ACF/VTAM V3RI1 
ACF/VTAM V2R2 
ACF/VTAM V2R1 


° Versions of ACF/NCP with which NCP V4R2 can communicate: 


ACF/NCP V4R2 

ACF/NCP V4R1 

ACF/NCP V4 Subset 

ACF/NCP V3 for 3705 and for 3725 
ACF/NCP V2 for 3705 and for 3725 
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e Other Program Products operating with NCP V4R2: 


NTO R4 

NRF R3 
X.25 NPSI R4.3 
EP R4 


° Other Program Products communicating with NCP V4R2 are: 


NetView Cor NCCF V2R3, NPDA V3R3 and NLDM V2) 
NPM Ri or NPM R2 


ACF/NCP V2 and V3 APARS must be applied to support coexistence with ACF/NCP 


V4R2. 


The Program Directory for ACF/NCP V4R2 includes a list of required APARS. VTAM 


and NPM APARS are also required and listed. 


3.1.2 ACF/SSP V3R2 Product Requirements 


€ ACF/SSP V3R2 15 required to generate NCP VGR2 with NTRI support 


° With ACF/SSP V3R2 the following levels of NCP can be generated, loaded and 


dumped: 
ACF/NCP VGR2 ~ 3725,3720 = MVS,VM -> 
ACF/NCP V4 Subset - 3720 ~ MVS,VM,VSE -> 
ACF/NCP V4R1 ~ 3725,3720 = MVS,VSE -> 
ACF/NCP V3 for 3705 - £3705 - MVS,VM,VSE -> 
ACF/NCP V3 for 3725 - 3725 = NMVS,VM -> 


Some APARS must be applied to ACF/SSP V3R2 to allow generation 
versions of ACF/NCP with NDF. 


NTRI 

NTRI- MVS,VM 
no NTRI 

no NTRI 

no NTRI 


of different 


The Program Directory for ACF/SSP V3R2 contains a list of required APARS. 


3.1.3 NetView Product Requirements 


e ACF/VTAM V3R1.1 is required to support NetView Ril 


e ACF/NCP V4&R2 is required to support all functions provided by NetView in- 


cluding NPDA support for NTRI. 
° Operating System environments for NetView are: 


MVS/XA 
MVS7370 
VM7SP R4 
VM/7SP HPO R4 
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3.2 PLANNING HOST PRODUCTS FOR TOKEN-RING CONNUNICATION 


No special host products are required to support communications with work- 
stations on a directly attached Token-Ring because VTAM views them as work-~ 
stations on Switched SDLC Links. 


Products to be considered for application function include: 


° CIcs 1.7 - For APPC7PC support or 3270 Applications 
° IMS/VS - For 3270 Applications 

e File Transfer Programs - For file transfer to/from TS0,CMS,CICS 

° DISOSS - For Office System Communication - MVS 

° PROFS - For Office System Communication - VM 

e TSO/E Servers - For Enhanced Connectivity Facility -MVS 
e VM/CMS Servers - For Enhanced Connectivity Facility -VM 


The Workstation Chapter of this document includes more information about 
APPC/PC, the File Transfer Program, and Host Server programs. ) 
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3.3. PLANNING - 3725 CONNUNICATION CONTROLLER 


3.3.1 3725 Requirements to run NCP V46R2 with NTRI Support 


e NCP VGR2 operates on 3725 and 3720 Communication Controllers 
* NCP V4R2 requires 3725 Release 4 | 
e 3725 will be automatically updated to Release 4 (EC 873055 or later) by CE. 


NOTE: The NCP V& SUBSET will support WNTRI in appropriately configured 3720 
Communication Controllers in an MVS or VM host environment. : 


3.3.2 3725 Storage Requiremants for NTRI 


NTRI program code requires approximately 85 Kbytes of memory. 
In addition, a number of parameters must be defined and data areas reserved for 
each physical and logical connection. The storage requirements for these data 
areas are: 
Requirements for each Physical connection: 
Each physical connection CTIC) is viewed by VIAM as a full-duplex leased 
point-to-point line. In addition to the standard NCP data areas for such 
connections (488 bytes), NTRI requires about 1500 bytes for each TIC. 
Requirements for each logical connection: 
Each logical connection Cconnection with a terminal) is viewed by VTAM as 
a switched point-to-point line. In addition to the standard NCP data areas 


for such a connection (380 bytes), NTRI requires about 276 bytes for each 
connection. 


Publication Reference: 
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3.4 NAMING CONSIDERATIONS AND CONVENTIONS 


3.4.1 Token-Ring Network Adapter Addresses 


3.%.2 Universal Address or Locally Administered Adapter Address ? 


In this document these are also referred to as "'Hard' and 'Soft' addresses re- 
spectively. 


Each Token-Ring Adapter has a unique 'burned in’ or 'hard' 6 byte address. The 
uniqueness of this address is administered by the IEEE among vendors, and 
internally by the vendor. 


For a Token-Ring environment without a host connection, the IEEE 'Universal' 
address may be useful. The advantages of using the universal address are its 
guaranteed uniqueness and the avoidance of local address administration. Be 
sure to keep a list of stations, some topologic information, and the corre- 
sponding universal addresses for TRN Management. 


As an alternate to the 'Universal' address, a locally administered address Csoft 
address) can be used for a TR adapter. 


For a Token-Ring environment with a host connection, the use of universal ad- 
dresses has some disadvantages. In some cases, locally administered addresses 
are required C€Ce.g. for host-initiated connections). 


Restrictions of Universal Addresses for host-attached TRN: 


e Pre-generation of Network Stations is not possible because the Adapter Ad- 
dress has to be defined in VTAM PATH statements for DIAL=OUT. 


e If a defective adapter is replaced, VTAM has to be updated to reflect the 
new address before the user can re-establish connectivity. 


e A locally administered or 'soft' address is required for the adapter address 
of the TIC. 
t From an operational point of view (CCNM and TRN Management) it may be useful 


to make the address informative, instead of a random number. 


3.4.3 Administration of Adapter Addrasses 


There is only one requirement for the administration of 'soft' addresses: The 
address must be ‘unique’. The last 4 bytes (8 digits) from the 6 byta adapter 
address Cidentified with ‘'nn') can be used to implement naming conventions. 
Considerations for these conventions can be based on topology, operational 
needs, a combination of both, other characteristics, or just a serial number. 


The conventions we used for our tests are discussed later in this chapter. 
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Adapter Address Format | | 
 Kdaotar Address: Vaveut 4000 dddd dddd 


'G' indicates a 'soft' address 4 

Reserved 000 

User administered section dddd dddd 
Max. value allowed 7999 9999 


Part used in 'DIALNO=' CVTAM) 4000 dddd dddd 


For administration, it may be useful to have a worksheet which contains infor- 
mation about addresses, status information and the corresponding network sta- 
tion location. A example of such a worksheet is in Appendix B. 


3.4.4 Naming Convention Exam 


In our example we considered mainly operational aspects for the naming con- 
ventions. The only topological information we used is a ring number and (for 
host attachment considerations) the subarea of the NCP which is most frequently 
used by the network station applications as the dastination address and to which 
the PC 3270 Emulation program was customized. Another potentially useful piece 
of eee could be the subarea of the SSCP in which the Switched Major Node 
is defined. 

For operational considerations, we used one position to define the station type. 


- LOCALLY ADMINISTERED ADAPTER ADDRESS ( 12 DIGITS ) 


| FIXED (4 DIGITS) VARIABLE C LAST 8 DIGITS ) 
4000 | a bb cc ddd 


a = Station type 


Not used Coptional ) 

3725 or 3720 

3174 L with LAN Attach 
PC Type Workstation 

3174 R Attached to a TRN 
Printer 


8 T “Not allowed, bit 0 used for 
9 Functional Addr. Indicator 


= Subarea number of NCP 


= Ring number 


= Serial number 
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3.4.5 SNA Naming Considerations 


Existing naming conventions for SNA resources can still be used for host at- 
tached Token-Ring Network resources. 


One change which should be considered is to use one position of the naming 
conventions to identify a resource as a TRN resource. In our example in Ap- 
pendix C, we used "E' as TRN resource identification. 


If there are no existing naming conventions for switched major nodes than new 
terms should be defined. 


There 1s another situation which may be considered for naming conventions: 
specifying a difference between current SNA stations and TRN stations. A, SNA 
station is normally defined as a 'fixed' PU Type, but a PC in a TRN environment 
can be used for multiple functions Like PC 3270 Emulation and LU Type 6.2. Each 
of these functions requires a distinct PU/LU pair for the same station. 


The function-related information is in the IDBLK specification of the PU 
statement, where '50' identifies APPC/PC and '17' identifies PC 3270 Emulation. 


It may be useful to reflect this in the naming conventions. We consider this 
in the example on the next page. 


Another field to consider for naming conventions is the IDNUM= value in the PU 
statement. This can be any value, but it must bea unique, and the content must 


match the value specified during setup of the application subsystem in the 
workstation. 


Naming conventions used for VTAM should take into consideration the requirements 


of application subsystems (such as CICS or INS) which use these names, (for 
example, the NETNAME=LUname parameter of a CICS TCTTE). 
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3.4.5.1 SNA Naming Convention Example 


PU/LU —~ Naming Conventions for VTAM Switched Major Node 


PU/LU for PC with 3270 Emulation Standalone Configuration 
E13SW VBUILD MAXGRP=5,.. 


E13PE01 PU IDBLK=017,.. PU —> 3270 Emulation 
igi Aenea eee em? 
> 


Sequ. Number < 
Application/PU identifier 
= PU for 3270 Emulation 
-— A PU for APPC/PC 
- C PU for TRN Att. 3174 
P = Physical Unit Switched 
NCP Subarea 
E identifies NTRI Resource 


E13L0102 LU LOCADDR=2,.. LU -—> 3270 Emulation 
Sequ. Number CLOCADDR) 
Belongs to PU Sequ. Number < 
L = Logical Unit Switched 
PU's/LU's for PC with 3270 Emulation and APPC/PC 


E13PE02 PU IDBLK=017,.. PU -—> 3270 Emulation 
E13L0202 LU LOCADDR=2,.. LU -> 3270 Emulation 


E13PA02 PU IDBLK=050,.. PU -—> APPC/PC 
E13L0203 LU LOCADDR=3,.. —> APPC/PC 


PU/LU's for TRN Attached 3174 


EL3PC03 PU IDBLK=nnn,.. 3174 

E13L0302 LU LOCADDR=2,.. Terminal 1 
E13L0303 LU LOCADDR=3,.. Terminal 2 
E13L0304 LU LOCADDR=4,.. Terminal 3 


PATH ~— Naming Conventions for VTAN SHithed Major Node 


PATH — only required if dial out is used 


EL3D0201 PATH DIALNO=nn044000abbccddd,GRPNM=nnnnn,... 


as see 'Soft' Address 


| Conventions 
> First Path of several possible 


> Path for PU id. 02 
> D identifies PATH (Dial) 


3.5 PERFORMANCE AND CAPACITY CONSIDERATIONS 


3.5.1 General Token-Ring Performance Considerations 


The Token-Ring Network architecture gives each ring station equal opportunity 
to transmit within a given priority. A major benefit of the token 
mechanism 1s that no collisions can occur. 
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passing 


Data is sent over the ring at a speed of 4 megabits per second (Mbps). Thus a 
Token or frame will be received at an adapter several thousand times per second 
and the user will be unaware of the ‘token wait!’ time. 


Also if an unusually large or heavily used 4 Mbps Token-Ring Network becomes 
overloaded, the flexibility of a Token-Ring Network and the IBM Cabling System 
allows easy reconfiguration of the ring to achieve a better load balance. For 
example, it is very easy to reconfigure two rings into three rings, intercon- 
nected with one or more additional bridges. This would give a potential total 
of 12 Mbps capacity instead of 8 Mbps. It is important, however, to evaluate 
the amount of traffic that may pass through bridges and the effect that dis- 
tribution of Server and Gateway machines might have on a new configuration. 


Only limited performance testing data was available during this study. There- 
fore the information given here is informal, and should be considered only as 
a reasonable estimate of Token-Ring Network performance. 


Response times for the functions tested were shorter than those for similar 
functions using a 93600 bps SDLC link. However, the differences were not sig- 
nificant since, stress tests were not conducted in either situation. In each 
case, the application characteristics were more significant in determining re- 
sponse time than the type of connection. 


The effective data rate (throughput) for an application depends on the com- 
plexity of the programning interface used for that application. The effective 
throughput may vary betwean 1.4 Mbps and 3.2 Mbps, depending on the application 
or system programming interface used, the size of the messages and the type 
(speed) of the workstation. 


3.5.2 PC 3270 Emulation - Performance Considerations 


One major consideration for 3270 Emulation would be to define each workstation 
as a Standalone configuration rather than to use Gateway and Network Station 
configurations. This reduces the potential bottleneck in the gateway and also 
improves availability. These benefits must be weighed against the offsetting 
requirement for additional switched major node (PU) definitions and corre- 
sponding virtual switched links. In addition, requirements for resource sharing 
(such as printer sharing) may be important. 


3.5.3 ZEBM 3725 Capacity Planning 


A configuration aid is available for the 3725 and 3720 Communication Control- 
lers. This aid is normally used by IBM System Engineers, and its use 1s recom- 
mended prior to ordering TRSS components. 


The following information is required for the Configurator: | 


Planned Token-Ring Configuration 

Planned Host Attachment Configuration 

Type of Workstations 

Number of Workstations 

Applications used at Workstations 

Type of Messages for Host Communication 

Estimate of Message Traffic for Host Communication 
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3.6 NCP AND VTAM INSTALLATION AND PREPARATION 


3.6.1 NEW NCP/EP Definition Facility (HDF) of ACF/SSP 


Bafore preparing the new NCP source with NTRI support, familiarization with the 
new NCP/ZEP Definition Facility CHDF) of SSP V3 is recommended. This facility 
has a lot of advantages compared with ACF/SSP V2. The required SSP Version to 
generate ACF/SNCP V4R2 with NTRI support is ACF/SSP V3R2. 


NDF Functional Overvien 


NDF replaces the Stage 1 and Stage 2 generation process with a faster and more 
powerful process. 


The NTRI Generation Process is part of NDF. It is not necessary to run a sep- 
arate generation for NTRI resources. Several new NTRI keywords have been added 
to the NCP statements. The new statements are described in the next section of 
this document. NDF has also added a new OPTION keyword CNEWDEFN) which must 
be used for NTRI generation in order to generate the appropriate VTAMLST defi- 
nitions for AUTOGENed lines. With NEWDEFN and the AUTOGEN facility of NDF, many 
new definitions will be created automatically by NDF. 


3.6.2 Preparation of SSP and NCP 


3.6.2.1 Preparation of ACF/NCP and ACF/SSP Installation Jobs 

Follow the installation instructions published in the appropriate manuals and 

in the Program Directories of the products. 

First, install ACF/SSP V3R2, then ACF/NCP V4R2. 

e If SSP is installed first, the directories allocated (by using the sample 
jobs in the Program Directories) are large enough to run the APPLY Job for 


NCP. 


e If NCP is installed first, the directories allocated are not large enough 
to run the APPLY Job for SSP. 
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3.6.2.2 NDF Definitions to generate NCP with NTRI Support 


OPTIONS NEWDEFN = YES for NTRI. Generates output used to define 
NCP to VTAM. Must be first statement in source. 


BUILD 


LUDRPOOL 


GROUP 


LINE 


MXRLINE Defines the number of physical connections (TICs). 
Must equal the number of physical line definitions. 

MXVLINE Defines the number of logical connections. Allow 
at least one for each PU to be defined with host 
connection. 

LOCALTO Timeout value for attached Clocal) ring. Default 
of 1.5 seconds is satisfactory for IBM TRN's. 

REMOTTO Timeout value for rings attached through bridges. 
Default 1s 2.5 seconds. 


NUMTYP2 Not a new parameter; adapt Cincrease) for SDLC 
switched links to reflect the maximum number of 
LU’'s that will be active at any one time. 


ECLTYPE PHYSICAL/LOGICAL 


Required for NITRI. Specifies that this group 
defines a physical or logical connection. The 
physical groups must be defined first. 

AUTOGEN Only for Logical connections. Specifies the 
number of logical lines CLINE and PU) automatically 
generated by NDF. Can also be coded manually. 

PHYPORT Only for logical connections. PHYPORT specifies 
the physical port address with which the lines 
in a logical group communicate. Value corresponds 
with the PORTADD parameter on the physical line. 
If PHYPORT=NONE Cdefault) is specified, these 
Lines and PU'’s can be used with any port. 


Only required if ECLTYPE = PHYSICAL 
The line definition references the physical line 
attached to the TIC; all parameters referenced 
apply to that TIC. The LINE definition is part of 
the PHYSICAL GROUP. 

ADDRESS Corresponds to the physical position of the TRM. 
Valid address ranges for 3725 NTRI are 80-83, 
112-115, 144-147,176-179, 208-211 and 240-243. 

PORTADD Refers to the 'physical port' in the 372X. Used 
as reference for dial out. One port number required 
for each TIC. The number can be from 0 to 99. 

LOCADD Spacifies the 6 byte TRN adapter address. This 
address 1s used as the destination address if a 
TRN-Station is calling the host. 

RCVBUFC Specifies the buffer capacity allocated to receive 
data from the ring. The value should be the largest 
frame plus 45 bytes, default is 1122, max.is 4095. 

MAXTSL Specifies the maximum amount of data CPIU) that 
can be transmitted in one data transfer to a TRN- 
Station. The default is 265 bytes, max. is 1108. 
For APPC/PC, where larger frame sizes can be used, 
the ffAXTSL value should be adapted. 


3.6.2.3 NCP Definition Example 
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Definitions for OPTIONS,BUILD and LUDRPOOL 


OPTIONS 


Comments 


NEWDEFN=YES NTRI Generation 
BUILD MXRLINE=3, 3 TIC's Cin 2 diff.LAB's) 
MXVLINE=60, For 60 Stations for TRN 
LOCALTO=2, 
REMOTTO=6 Bridges in Network 
ae alae Non NTRI BUILD Parameters 
LUDRPOOL NUMTYP2=60 Max. eee concurrently 
active ; 


Definitions for Physical Group 


PGROUP GROUP ECLTYPE=PHYSICAL Physical group for 3 TIC's 

LABITIC1 LINE ADDRESS=(80,FULL), lst TIC 
PORTADD=1, Where LGROUPI1 points to 
MAXTSL=1108, For larger CAPPC/PC) frames 
RCVBUFC=4095, Recommended 
LOCADD=400011301001 '"Soft' Address for TIC 1 

LABIPUI PU 

LABILU1 LU ISTATUS=INACTIVE 

LABITIC2 LINE ADDRESS=(81,FULL), 2nd TIC © 
PORTADD=2, Where LGROUP2 points to 
MAXTSL=1108, For larger CAPPC/PC) frames 
RCVBUFC=4095, Recommended 
LOCADD=400011301002 "Soft' Address for TIC 2 

LABIPU2 PU 

LABILU2 LU ISTATUS=INACTIVE 

LAB2TICI LINE ADDRESS=(240,FULL), 3rd TIC Cother LAB) 
PORTADD=3, Where LGROUP3 points to 
RCVBUFC=4095, Recommended 
LOCADD=400011301003 "Soft' Address for TIC 3 

LAB2PUI1 PU 

LAB2LU1 LU 


ISTATUS=INACTIVE 


Definitions for corresponding Logical Group's 


LGROUPI GROUP ECLTYPE=LOGICAL, Logical Group Il 
AUTOGEN=10, Autogen 10 log. Lines/PU's 
CALL=INOUT, Allow dial in and dial out 
PHYPORT=1 Point to TIC 1 CPORTADD) 

LGROUP2 GROUP ECLTYPE=LOGICAL, Logical Group 2 
AUTOGEN=20, Autogen 20 log. Lines/PU's 
CALL=INOUT, Allow dial-in and dial-out 
PHYPORT=2 Point to TIC 2 (PORTADD) 

LGROUP3 GROUP ECLTYPE=LOGICAL, Logical Group 3 


AUTOGEN=30, 
CALL=INOUT, 
PHYPORT=3 


Autogean 30 log. Lines/PU's 
Allow dial-in and dial-out 
Point to TIC 3 CPORTADD) 


3.6.3 Preparation of VTAM Definitions 


There are no new VTAM parameters for Token-Ring support. Each device attached 
to a Token-Ring is defined as if it were on a switched line. All definitions 
for TRN Stations will be placed in the Switched Major Node definition. 


3.6.3.1 General Switched Major Node Considerations 


A switched major node is used to define physical units which may communicate 
with the VTAM domain over a switched line or for the Token- Ring Network over 
NTRI. 
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For dial-out operation only, a PATH statement must be provided for each dial- 
out path associated with the physical unit, describing such information as the 
telephone number to be used. For devices attached to the Token- Ring Network, 
the locally administered adapter address is part of the dial-out number. The 
dial-out operation occurs when an application program requests a session with 
a logical unit whose switched physical unit is not already connected to VTAM. 


Each PATH statement tells VTAM the Line group and the dialing digits to be used. 
If the line group contains more than one dial-out line (TIC for Token-Ring), 
each line is tried in succession until contact 1s established. If contact cannot 
be established using the line group (CTIC), VTAM tries again, using the line 
group identified by the next PATH statement. 


In a multiple-domain network, a switched major node can be defined in one domain 
and treat its logical units as cross-domain resources in other domains. 

A switched major node can also be defined in each domain that owns an NCP and 
has a dial port for a device. 

If a switched major node is defined in only one domain, devices can dial into 
or be dialed out from only one host processor. If defined in more than one do- 
main, they can dial into or be dialed out from each of the host processors in 
which the major node is defined. 


VTAM XID exchange 


VTAM constructs a 48-bit station ID that is used in XID exchange during the dial 
procedure. This station ID must be unique for each station within the network 
(not just within the major node). 

The IDBLK and IDNUM values are used by VTAM to construct the station ID. 


e IDBLK=identification block 


The tdentification block is a 12-bit string assigned to a specific de- 
vice and is required. The number must be obtained from the component 
description for the device. For a PC which is able to emulate or support 
different functions, the IDBLK value is usually hard-coded in the ap- 
propriate PC application. 


For PC3270 Emulation, this value must be IDBLK=017. 
For APPC/PC, this value must be IDBLK=050. 
® IDNUM=identification number 


The identification number is a 20 bit information field assigned to the 
station being defined and is also required. For NTRI the value for the 
number can be defined by the user but 1t must be unique. This number 
must be specified in the PU definition of the switched major node and 
must match the corresponding number specified during setup of the com- 
munication subsystem in the PC. 


° The Station ID (XID) Structure: 


Bits 0-3 Raserved 
Bits 4-7 PUTYPE 
Bits 8-15 "00" 
Bits 16-27 IDBLK 
Bits 28-47 IDNUM 
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3.6.3.2 VTAN Switched Major Node Definitions for TRN Devices 


If the host is initiating the connection then it must know the locally admin- 
istered address of the Token-Ring station. In addition the SAP of the destina- 
tion device application and the physical port (TIC) are required for the DIALNO 
parameter. a | 
For device initiated connections, no PATH statement is required or used in the 
VTAM switched major node. In this case the calling TRN station places the lo- 
cally administered address of the TIC to be used in the destination address 
field of the Token-Ring frame. | | 


If PC 3270 Emulation is running at a workstation, the session will normally be 
initiated by the device (user). For restart after an error it may also be useful 
to have the possibility of host initiated connections for 3270 Emulation. This 
is possible if a PATH statement is defined. The outgoing call will be executed 
after the operator activates the LU. . 


If APPC/PC is running at the workstation, connections can be initialized by the 


host application or by the workstation application. A PATH statement is re- 
quired in the VTAM definitions for host-initiated APPC/PC connections, 
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The ADDR parameter is required on the PU statement but the value is not 


used. For real switched lines this address refers to the SDLC station ad- 
dress. 


The MAXDATA parameter value is not used for switched PU's of NTRI resources 
and can be omitted. 


The DIALNO parameter in the PATH statement defines saveral things. The first 
byte is the port number CTIC) to which this station 15 connected. This 
number corresponds to the port number CPORTADD) in the NCP definitions. The 
second byte defines the SAP address of the terminal. This value is normally 
04 for an SNA SAP. The last six bytes of the DIALNO correspond to the lo- 
cally administered address of the Token-Ring station. 


~The IDBLK and IDNUM values are used for the VTAM XID exchange. 


If both PC 3270 Emulation and APPC/PC are used on a PC, both PU's of the 
example must be defined for that network PC. The PATH statement for the 
APPC/PC PU is only required if dial-out has to be supported. The second PATH 
defines an alternate path Cother TIC). 


3.6.3.3 VTAM Switched Major Node Definition Examples 


LD for 60 Workstaty on PU'TS ne 3 TIC's 
PC with 3270 Emulation and oniv. - initiated connection 


SWINOUT VBUILD MAXGRP=3, 3 GRPNM's CTIC's) 


MAXNO=60, 60 DIALNO's 
TYPE=SWNET Required 


PC3270PU PU ADDR=04, Reqd. but value not used 


IDBLK=017, 017 reqd. for 3270 Emul. 
IDNUM=E0001, As customized tn 3270 Emun. 
PUTYPE=2, 

MAXDATA=nnn, Not used for NTRI 
DLOGMOD=QBITON.., Query bit req'd for 

at, File Transfer 


PC3270LU LU LOCADDR=02 
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PC With APPC/PC, host and PC initiated connections 


SWINOUT VBUILD MAXGRP=... 


PCAPPCPU —~ PU ADDR=nn, Read. but value not used 
IDBLK=050, 050 reqd. for APPC/PC 
IDNUM=A0001, As sat in APPC/PC Sub-Sys. 
PUTYPE=2, PU 2.1 Emul.Mode > dest.PU 
MAXPATH=2, ; Alternate TIC for dial out 


DIALNO=0104400031301001, 


Gees Local Admin. Station 
| Address 
> Dest. SAP 
> Port CTIC) 
GRPNM=LGROUPI, 


DIALNO=0204400031301001, 
GRPNM=LGROUP2, 


PCAPPCLU LOCADDR=02 


PC With PC 3270 Emulation and APPC/PC 

Specify both PC 3270 and APPC/PC definitions for this Station 
SWINOUT VBUILD MAXGRP=... 

PC3270PU PU ADDR=nn, Required 

PATH PATH DIALNO=0104400031301001, 

PC3270LU LU LOCADDR=02 

PCAPPCPU PU ' ADDR=nn, Required 


PATHI DIALNO=0104400031301001, 
PCAPPCLU LOCADDR=02 
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4.0 PLANNING - TOKEN-RING NETWORK ENVIROMNNENT 


This chapter consists of a list of Token-Ring components and products with some 
planning considerations. It does not provide detailed Token-Ring planning in- 
formation. 


4.1 TOKEN-RING DEVICES AND PRODUCT SELECTION 


IBM Devices With Token-Ring Attachment capability (Status August, 1986) 


IBM PC's 

IBM 3270 PC 

IBM 3720 Communication Controller 

IBM 3725 Communica_ion Controller 

IBM 3174-3R Control Unit 

IBM S736 via Gateway PC 

IBM S71 via Gateway PC 

IBM Token-Ring Bridge CIBM PC-AT is used for this function) 


Selection of Token-Ring Adapter for IBM PC 


e The Token-Ring Adapter II has an extra 8k of RAM. This is the only differ- 
ence between it and Type I Adapter. 


® Two Type II Adapters are required for a Bridge station 

® A Type II Adapter is recommended for communication with heavy traffic where 
additional buffers can be utilized (e.g. for LAN Servers). 

Selection of IBM PC Type 

e The IBM PC-AT is required for the Bridge function 


e The IBM PC-AT is recommended for server and gateway functions and for 
stations where improved performance for higher traffic 1s requested 


° The current DOS limitation of 640 K might be a restriction for combining 
some functions in a single workstation. 
Selection of PC Products with Host Communication 


e PC 3270 Emulation - provides 3270 data stream emulation, Host Print support, 
File Transfer and a Application Program Interface (API). 


e Application Program to Program Communication for PC CAPPC/PC) - provides 
LU 6.2 support. 


e PC Requestors provide functions for a PC user to request services or data 
from an IBM System/370 computer using Enhanced Connectivity Facilities. 


See Chapter 5, Workstation Software, for more information. 
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4.2 TOKEN-RING NETHORK AND WORKSTATION COMPONENTS 


Token-Ring Nethork - LAN Components 


Refer to the Token-Ring Network Introduction and Planning Guide - GA27-3677 for 
more detailed information. 


e Multi-Station Access Units (MSAU's) IBM 8228 

- Part number Cp/n) 6091014 

- Minimum of one per ring 

- Eight TRH stations can be plugged in one MSAU 

- Use Installation Aid Ccomes with 8228) before attaching lobes 
e Patch Cables between MSAU's 

~ p/n 8642551 (8 FT), 8642552 (30 FT) 

- One per 8228 when using multiple MSAU's 


~- 8218 and 8219 repeaters may be needed for long distances between 
MSAU's Ce.g. distances greater than 600 meters) 


e TRN Lobe Cables 


~ IBM Cabling System Cables for establishment wiring to the wiring 
closet. 


° Cables from PC Network Station adapters to Token-Ring (MSAU) 
- p/n 6339098 
- One per attached PC 
° Cables from TIC's to Token-Ring CMSAU) 
- Cable group number 1666 - 3725 cable 
~ One per attached TIC | 


Publication references for Tokan-Ring Network planning 
Token-Ring Network Introduction and Planning Guide - GA27-3677 
TIP Media Guide Cuse new version = suffix 2) - GA27-3714-2 
Token-Ring Network Installation Guide - GA27-3678 
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4.2.2 Token-Ring Network Adapter for IBM PC and Adapter Software 


Token-Ring Network Adapter for PC >> p/n Type I = 6339100 
>> p/n Type II = 67X0438 


The product includes a TRN PC Adapter, a Diskette with TOKREUI CAdapter 
Support Program) and an Operator Guide. 


Adapter Switches must be set as explained tn the Guide to Operations. In 
our installation, the default switch setting for TRN was satisfactory. See 
note below for more itnformation. 

Requires 7K of storage 

Verify adapter operations and switch settings by running adapter diagnos- 
tics; use ring diagnostics to verify ring and neighbor stations. 

Both are part of TOKREUI diskette. 


Refer to the IBM Token-Ring Network Problem Determination Guide (SY27-0280) 
about how to run and interpret the diagnostic functions 


TOKREUI.COM must loaded prior to use of the adapter Cexcept diagnostics) 


TOKREUI.COM cannot be loaded from a server disk (Cone copy is required for 
each user) 


If Locally Administered adapter addresses are to be used, the 6 byte (12 
digit) Adapter Address must be entered in the TOKREUI load command. 


Adapter interrupt level settings 


Adapter Type Supporting Interrupt | 
Levels 


IBM Token-Ring Netw. PC Adapter 


aM 5278/79 Emulation Adapter | 2. 


Note: 


In case of conflicting interrupt levels, unpredictable results may occur. 
Workstations with an SDLC Adapter and a Token-Ring Adapter can have only one 


Network card present with jumpers set to use level 2. 


If two Token-Ring Adapters exist in one Workstation, (as for a Bridge PC) the 


interrupt level must be switched according to the installation instructions. 
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4.2.3 Products for PC, TRN Communication and TRN Management 


PC DOS 3.2 (p/n 6280057) 
« Required for Token-Ring Network environments 
e One copy per LAN user required 


@ Use the REPLACE command to update the current fixed disk 


e Copy SHARE.EXE from DOS 3.2 into the NETWORK directory (only applicable if 
PC LAN program is used) 


e Storage requirements 45-60K (see DOS publications for details) 


NETBIOS Program Product (p/n 6467037) 


« The product includes a diskette with NETBIOS and a Users Guide 
° Required if programs written to NETBIOS interface are used 
® Programs using NETBIOS - Examples 

* PC 3270 Emulation for Gateway or Network stations 

* PC LAN Program V1.1 
® Programs not using NETBIOS - Examples 

* APPC/PC 

* PC 3270 Emulation if generated as Standalone station 
e NETBIOS must be loaded after TOKREUI by the NETBEUI command 
® Parameters required depend on type of application used 
e fflust be loaded prior to any NETBIOS application 


© Requires 46K of storage 


e Cannot be loaded from a server disk Cone copy for each user) 
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PC LAN Program V1.1 (p/n 6280083) 


e Required for LAN services like File Server, Print Server or Communication 
Server 

e Includes 3 diskettes and Users Manual 

e One copy required for each LAN user 

° Storage requirement depends on functions selected during customizing. It 


is between 128K (Redirector) and 320K (Servers). 


Token-Ring Network Bridge Program (p/n 6403831) 
or 
Bridge Installation Kit CAdapters + SW) (p/n 6476041) 


e One copy for each bridge 


Token-Ring Network Manager Program (p/n 6476046) 


e One copy for each ring 


64.2.4 PC Products for Host Communication 


See workstation software in Chapter 5 for more information. 


IBM PC 3270 Emulation V3 (p/n 59X9969) 

e V3 is required for Token-Ring LAN environments. 

e Required for most host communication services like 3270 emulation, file 
transfer and host printer support. 

e Includes 2 diskettes and Users Manual 

APPC/PC (p/n 6467038) 

° Release 1 is currently available. 

IBM PC Requestors (p/n 6316993) 
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4.2.5 Token-Ring Network Configurations and Management 


Components to be considered for Token-Ring Environment 


Naming Considerations 

IBM Token-Ring Network Bridges 

IBM Token-Ring Network Management 

IBM Token-Ring Network Manager Program 

IBM Token-Ring Network Routing Considerations 


IBM Token-Ring Network Backup Considerations 


Most of these subjects are discussed in the Publication: 


~ IBM Token-Ring Network Bridges and Management 
(GG624-3062) 


Additional considerations for Token-Ring Networks attached to Systems370 Hosts 


Backup considerations --> See Chapter 6 in this bulletin 
CNM considerations ~-> See Chapter 7 in this bulletin 
Recovery considerations --> See Chapters 6 and 7 in this bulletin 
Naming considerations --> See Chapter 3 in this bulletin 


Routing considerations --> See Chapters 1 and 6 in this bulletin 
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5.0 WORKSTATION SOFTWARE FOR HOST COMMUNICATION 


In this chapter only workstation products with host communication capabilities 
are described. Products not communicating with a subarea host (e.g. IBM PC LAN 
program or NETBIOS) are not considered. 


Workstation Products with host communication: 
- IBM PC 3270 Emulation Program Version 3 
~- APPC/PC program 
Workstation Products using PC3270 Emulation for host communication: 
- Personal Services/PC (PSPC) V.1 R.2 
- PROFS/PC Support 
- PC Requesters (Cpart of Enhanced Connectivity Facility products) 
PS/PC and PROFS/PC are PC products used to access the subarea host office system 


products DIS0$5/7370 (MVS) or PROFS CVM). Through these facilities, document 


distribution and library services between subarea hosts and workstations can 
function. 


The Enhanced Connectivity Facility CECF) enhances the capability for resource 
sharing among IBM PC's and System/370 computers by providing PC users with a 
uniform structure for exchanging data and access resources on subarea hosts 


CMVS,VM). Highlights about this new product family can be found in this chap- 
ter. 


Token-Ring Adapter Initialization 


A PC program using the Token-Ring Adapter Support Interface cannot begin data 
transmission Cincluding host communication) until a sequence of operations to 
load TOKREUI and to open the adapter (connect the PC to the Token-Ring) has been 
executed. 

The sequence of operations includes: 


e Loading TOKREUI: loading the adapter support code and optionally specifying 
a locally administered address to be used. 


e Adapter initialization: resetting the adapter and performing of initial 
tests. 
e Opening the Adapter: setting the adapter ready for ring communication. 


During this process, a ‘click’ may be heard in the MSAU indicating that the 
relay has switched. 


® Opening the Service Access Point (SAP): The type of LLC interface will be 
defined through the SAP. It provides access to the LLC and lower level 
services provided by TOKREUI and the Token-Ring Adapter. 


e Opening one or more Link Stations: to allocate resources used for protocols 
required by applications using data link or connection-~oriented services. 


It 1s possible to have multiple programs coexisting in the PC and communicating 


over the same Token-Ring Adapter. However, only one of these programs may per- 
form the initialization and opening of the adapter. 
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5.1.1 Application Program Interfaces of TRN Stations 


WORKSTATION USER — INTERFACE 
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Figure 12. TRN - Application Interfaces for Workstation PC 


Comments: 


- PC 3270 Emulation: the Standalone Station configuration option of 
PC 3270 Emulation interfaces directly to the TOKREUI program 
and does not need the NETBIOS program, while the Gateway and 
Network Station configurations interface to NETBIOS. 


- DLC Interface: The DLC code itself is implemented in the micro- 
code which is resident in the Adapter Card. The TOKREUI program, 
shipped with the adapter, is the PC resident driver through which 
an application program passes requests to the DLC code. 


- DIRECT and DLC Interfaces are low-level interfaces and are normally 
not used by a User. 


5.2 IBM PC 3270 EMULATION 


The main function of PC 3270 Emulation is to allow a PC user access to subarea 
host 3270 applications. 
PC 3270 Emulation also provides other useful functions for PC Users: 


- Downloading and Uploading of files 
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- Printing of subarea host files 
- Interface for Office System and ECF products 


PC 3270 Emulation provides LU Type 2 (for 327x Terminal Emulation support) and 
LU Types 1 or 3 (for printer support) for interfacing to SNA hosts. 


5.2.1 Configurations and Functional Overvien 


5.2.1.1 Attachments and Configuration Types 


PC 3270 Emulation supports the following attachments 
- SDLC Adapter: SNA Host Network Environment (Lines) 
~ DFT: Subarea Host Network Environment (3x74/Coax) 
- Token-Ring: Token-Ring Network Environment 


Note: Only Token-Ring Attachment is considered in this document 


PC 3270 Emulation can be configured for the following station types: 
~ Standalone Station: Communicates directly with a subarea host 
- Gateway Station: Acts as Gateway for Network Stations 
- Network Station: Communicates via Gateway with a subarea host 
- Gateway and 
Network Station: A Gateway Station can be configured 


to be used as a Network Station in addition 
to the Gateway function. 
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5.2.1.2 PC 3270 Emulation Interfaces to LLC 


Standalone Station: 


Host 
Application 
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Figure 13. PC 3270 Emulation - Token Ring Interfaces 
- SAP 04 is defined for communication with SNA (Path Control) 


- SAP FO is defined for NETBIOS and is used for communication 
between workstations 
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5.2.1.3 Request Tasks Facility 


PC 3270 Emulation provides a facility to initiate or. modify some program 
options. The Request Task Panel can be invoked by pressing the Request Key 
(normally, F10). 


The functions provided by the Request Task Facility are: 


ID ITEM 
ar) Name File for 3270 Screen Save 
¥ b Name File for 3270 Print to Disk 
xX Cc 3270 Printer Request 
¥ d File Transfer 
x e Display Status of Network Stations 
f Revise List of Network Stations 
¥g Data Trace 1 = Start 2 = Stop 
¥ h Screen Mode 1 = Color 2 = Black and White 


Function availability at a particular workstation depends upon specifications 
made during PC 3270 Emulation Product customization. Avatlable Options are 
marked with an asterisk. 


5.2.1.4 Application Program Interface 


The Application Program Interface (API) of the PC 3270 Emulation program enables 


ah application program in the PC to intercept and manipulate messages to or from 
e host. 


The interface is a Presentation Space Application Program Interface (PS API) 
which provides a set of services. Using these services, a programmer can develop 
applications to improve the user communication interface by automating some 
operations, or distributing some processing. The primary API service is the 
"string copy service’, which copies data between the Presentation Space (PS) 
and the PC application. Data can be sent directly to a host by using the Write 
Keystroke service. 


A PS API application program might perform the following functions: 


e Analyze host output: copy the presentation space into a buffer area of the 
application. Use the String Copy Service, scan the screen copy and act on 
the data sent from the host. 


e Send data to the host: copy a character string from an application buffer 
area into a presentation space by using the String Copy Services. Simulate 
hitting of the Enter key, and use Write Keystroke to send data to the sub- 
area host. 
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5.2.1.5 File Transfer Facility 


° Supports Upload/Download of files to/from TSO, CMS and CICS 
© An equivalent product is required at the host site 


° File Transfer is an optional function. If customized, it can be invoked via 
the Request Task panel (F10). 


® The basic format is: 'SEND/RECEIVE dosname hostname Coptions’ 


° The Presentation Services ‘Query Bit’ must be set on in the VTAM Logmode 
entry to support File Transfer 


5.2.1.6 Host Session Key Definition and Keyboard Remapping 
A 3270 keyboard has at least twelve PF keys and several keys for special func- 
tions (such as Clear, Enter, PAI). 


The PC keyboard usually has ten function keys and several PC-specific keys, but 
not the all the keys available on a 3270 keyboard. 


The standard keyboard layout used during 3270 host sessions is shown on the next 
page including the keyboard definitions of the Enhanced Keyboard. 


A User can define his own layout Cinstead of using the standard ones) by de- 
fining the changes in a description data set. 


The PC 3270 Emulation Operation section later in this chapter lists standard 
host session key definitions. 
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5.2.2 Planning 


5.2.2.1 Coexistence and Dependencies on other Products 


- PC 3270 Emulation V3 is required for host connection over the Token-Ring 
Network. 


- DOS 3.2 is required for Token-Ring Network products. 
- Subarea host software for File Transfer Program: 


For MVS/TSO: IBM 3270 PC File Transfer Program, Rel.1 (5665-311) 
For VM/SP: IBM 3270 PC File Transfer Program, Rel.1l (5664-281) 
For CICS: IBM CICS/VS PC File Transfer Program, Rel.1 (€5798-DQH) 


Note: APARS are required in host products to use File Transfer facility 


- PC 3270 Emulation V3 can coexist with the PC LAN Program Rel.1.1, 
even if PC LAN is configured as Redirector or as Server. 


- The PC 3270 Emulation program cannot be used from a shared disk 
because one module is updated with the Communication profile 
parameters of the specific station. Each of the Directories must 
contain the complete code, and they cannot be connected CAPPEND). 


- The PC LAN program will not start if another application has already in-~ 
itialized the Token-Ring adapter; it therefore must be started before PC 
3270 Emulation. 


- PC 3270 Emulation checks the status of the Token-Ring Network adapter. 
If the adapter has been opened by another application, it will not try to 
reopen it, but will share the adapter Cif possible). 


A prerequisite for coexistence (multiple programs loaded at same time) is that 
sufficient storage is available in the workstation. Performance, product com- 
patibility, and storage requirements must be considered for concurrent program 
execution. | 


5.2.2.2 Storage Requirements 


The following memory is required to run PC 3270 Emulation V3 configured with a 
Token-Ring Communication Attachment. The values used are based upon early in- 
formation, and may be slightly different in the program product when installed 
by users. 7 


e Base Memory requirements: 
- Standalone Station 165K 
- Network Station 159K 
~- Gateway Station 188K 


Gateway with Network Station 217K 
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Note: To access Token-Ring DLC, the adapter software (TOKREUI) must be 
loaded. TOKREUI requires 7K. | 
For Gateway and Network stations, NETBIOS is required to access DLC. NETBIOS 
requires an additional 46K. 


@ Memory requirements for PC 3270 Emulation features: 


- Alternate Tasks 5K 
- Printer use/support 14K 
- File Transfer 18K 
- API 8K - 30K 


5.2.2.3 Standalone Station vs Network Station 


In a Token-Ring environment, a PC configured as a Standalone station has several 
advantages over a PC configured as a Network station. Standalone will normally 
be the configuration of choice. 


Main advantages of a Standalone station: 


~ No additional station involved for the Gateway function, which 
will improve Performance and Availability, while eliminating 
the cost associated with a dedicated workstation 


~ Less workstation memory required because NETBIOS is not required 
for support of dependent Network Stations 


A disadvantage of using Standalone stations could be that each PC is represented 
with a PU and LU in the IBM 372x and in NCP. There may be some situations where 
a configuration with Gateway and Network stations would be preferable. These 
include situations where the number of stations is very large, and thus79 the 
number of switched PU definitions is excessive. There may also be situations 
in which the sharing of such resources as high quality printers requires that 
re shared resource be defined on the same PU as the Display LU's which share 
i 


Publication Reference 


Guide to IBM PC 3270 Emulation Program Version 2 GG24-3038 
This Publication is based on PC 3270 Emulation V2; Token-Ring host attachment 


is not considered, but most of the other information in this guide is valid for 
PC3270 Emulation V3. 
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5.2.3 Preparation - Communication Profile Tasks 


Communication Profile Task Panel — Example for Standalone Station 
Chg Profile | | | | | Ext 101 | 1100 
COMMUNICATION PROFILE TASKS 
ID ITEM YOUR POSSIBLE 
CHOICE CHOICES 
1 1 = Standalone Station 
2 = Network Station 
3 = Gateway 
G4 = Gateway With 
Network Station 
b Communication Attachment 1 = SDLC 2 = DFT 
3 = Token Ring Network 
Cc Alternate Tasks 2 1 = Yes 2 = No 
d 3270 Keyboard 101 1 — 199 
e 3270 Keyboard Remap 2 1 = Yes 2 = No 


f Create Or Revise Communication Setup 

g Create Or Revise Modem And Line Description 
h Create Or Revise Gateway Setup 

Z Return To Task Selection 


Type ID Letter To Choose Item, Press Enter: 


This is the Communications Profile Task menu from which the station 
configuration and the communications attachment are specified. 


—- There are two choices for display stations providing PU communications 
with the host, Standalone or Gateway. 


- Use the Gateway configuration if that station is to act as a 
Gateway for other network stations on this or another ring. 


~ The Standalone configuration does not require NETBIOS. 


—- For the communications attachment, selection '3' is required for IBM 
Token-Ring Network. 
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Modem and Line Description Panel 


I 


a 


b 


Chg Profile | { | | | Ext 101 | 


MODEM AND LINE DESCRIPTION 


D ITEM YOUR POSSIBLE 
CHOICE CHOICES 


Physical Unit ID E0001 


Network Facility 1 Switched 
Dedicated 


Switched Backup 


Cc SDLC Link Address 


d 
Q 
£ 
9g 
h 


i 


W 


Continuous Carrier 2 
2 


NRZI Encoding 


0 
1 
Half Speed 2 
1 
Answertone Generation 2 


5 2 No 
(Switched Only) 
2 = No 


End With REQDISCONT 2 
Destination Address 11301001 
hen Finished With This Menu, Press Enter 


Type ID Letter To Choose ITEM, Press Enter: 


The Modem And Line Description Menu is selected from item ‘e' on the 
Communication Profile Tasks Menu (previous page). 
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The Physical Unit ID must match with the IDNUM value in the VTAM 
Switched Major Node. 


The SDLC Station address must be the SAP value of the host which 
is X'04' for the NCP. 


The following parameters are not applicable in the Token-Ring 
Environment 


Network Facility 
Continuous Carrier 
Half Speed 

NRZI Coding 
Answertone Generation 
End With REQDISCONT 


The Destination Address is the last 4 bytes of the Token-Ring address 
(TIC) of the 3725. This value must match the last 4 bytes (8 digits) 
of the LOCADD parameter of the Physical Line definition in the NCP 

Generation. PC 3270 Emulation automatically adds the leading X'4000'. 
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5.2.4 PC 3270 Emulation - User Operation 


5.2.4.1 Operating Scenarios 


Commands to start a station configured as Standalone 


- CD \NTOKENVI Change to TOKREUI Directory 

~ TOKREUI GOO00nnnnnnnn Load TRN Adapter with 'soft’' address 

-~ CD \PC3270V3 Change to PC 3270 Emulation Directory 

- PSCPG Load 3270 Emulation to get primary panel 
- a Select ‘at to start host communication 

= F2 F2 to get primary panel 

~ 2 Select 'z’ to end 3270 Emulation 


Commands to start a station configured as Gateway with Network Stations 


- CD \NTOKENVI Change to TOKREUI Directory 

- TOKREUI 4G000nnnnnnnn Load TRN Adapter with soft address 

-~ CD NNETBIOS Change to NETBIOS Directory 

- NETBEUI  ,1,1 Load NETBIOS program with parameter 

- CD NPC3270V3 Change to PC 3270 Emulation Directory 

- PSCPG Load 3270 Emulation to get primary panel 
- a Select a for host communication 


Note: For fast path,'PSCPG ,F" can be used to start direct the host connection 
without selecting ‘a’. 


File Transfer Command 


Before entering the File Transfer command at the workstation, the related 
session in the host (1T9S0;,;CMS,CICS) must not be tn a formatted screen or 
bracket state. For example, the ‘ready’ screen in TS0 1s required rather 
than ISPF panels. 


The File Transfer command can be selected at the PC3270 Emulation Request 
Task Panel which is invoked by pressing the Request (F10) key. 


The basic format of the File Transfer command is: 
*SEND/RECEIVE dosname hostname Coptions’ where 
SEND (PC to host) or RECEIVE Chost to PC) indicates the direction 


DOSNAME: Is the PC data set name e.g. 'SAMPLE.FIL' 
HOSTNAME: Is the host data set name e.g. "USERIL.PDSCMEMBERI)'° 


OPTIONS: For CMS and TSO 
ASCII - used for translation CASCII to EBCDIC or vice versa) 
CRLF - insertion/removal of Carriage Return and Line Feed 
characters 


APPEND - add transmitted data to an existing data set 
RECFM - Record Format of data set sent to a host 
LRECL - Record Length for new host data set 

~- OPTIONS: Especially for TSO 
BLKSIZE,SPACE AVBLOCKS, TRACKS and CYLINDERS give the necessary 
information to allocate a host data set for SEND operations. 
/PASSWORD is required for password-protected host data sets. 
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5.2.4.2 Standard Host Session Key Definition 
PC XT/AT © 


Keyboard Keyboard Keyboard Function 
END | 3270 Enter 


3270 Emulation 


Alt Fa 

ae 
7 
Ctl & F4 Field Mark 
Ctl & F9 Dev Cancel 

Ctl & F190 Msg 


2 
3 
4 
8 


5 
F6 
7 


; 
. 
: 
F 
: 
: 
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5.3 APPC/PC 


The functions provided by the implementation of SNA LU 6.2 are referred to as 
Advanced Program-to-Program Communication CAPPC). APPC is designed to provide 
enhanced SNA support for distributed transaction processing programs. This is 
achieved through a programming interface which allows applications to communi- 
cate with other applications on a transaction basis. 


APPC/PC is the implementation of APPC for the IBM PC. It is a licensed product 
supporting conversations between applications running on an IBM PC and: 


Subarea host - CICS 

S/36 

$738 

Series/l 

Another IBM PC with APPC/PC 


APPC/PC provides a general purpose interface that 1s common throughout a large 
number of IBM products. It is a ‘native’ SNA programming interface for the PC, 
as opposed to a terminal emulation capability. Therefore, APPC/PC should be 
considered for use in data processing applications where distributed processing 
functions are required. 


5.3.1 Key functions and considerations for using APPC/PC 


° Requirement for conversational mode transaction processing 

e Requirement for synchronized processing between remote SNA nodes 

e Requirement for processing which is distributed across multiple nodes 

e Requirement for Local or Remote transaction program initiation 

° Importance of a standard set of verbs to establish and maintain the Trans- 


action Program Conversations 


Importance of a high level of function to maintain integrity of data across 
the conversations 


A typical environment for such an application would have a need to perform 


synchronized transaction updates at a workstation and at other workstations 
or host data bases. 


5.3.2 Supported Pc Attachments 


APPC/PC can be used with the following attachments: 


- Token-Ring Adapter 
- SDLC Adapter 


The type of attachment has no impact on the APPC/PC programming interface which 
implies that a Transaction Program written for a SDLC connection can also be 
used for a Token-Ring connection, Ceither for a peer to peer or a host con- 
nection). 


When a PC is equipped with both a Token-Ring adapter and an SDLC adapter, 
APPC/PC may use both facilities concurrently. 


5.3.3 Implamentation in SNA 


APPC/PC supports peer-to-peer connections to other PU 2.1 nodes and host con- 
nections via a boundary function node such as a 372x/NCP. On peer-SDLC con- 
nections, APPC/PC can function as either a primary link station Cpoint-to-point 
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only) or a secondary link station. APPC/PC also supports role negotiation at 
link-~level contact so that its link-station role need not to be predefined. 


When attached to a subarea network, APPC/PC functions as a PU 2.0, necessitating 
a secondary SDLC station role. Parallel sessions are not supported in this en- 
vironment, and only one session is possible at a time between an LU in the 
APPC/PC node and CICS. This session must be bound by CICS. However, as a sub- 
stitute for parallel sessions, multiple LU's can be defined in APPC/PC, each 
having its own session with CICS concurrently. 


5.3.3.1 Conversation and Session Operatian 


Two remote applications exchanging data using LU 6.2 constitute a ‘'conversa- 


tion’. A conversation is supported by a ‘session’ available between two Logical 
Units. 


Definitions from an SNA point of view: 


° A session between two Logical Units is established when the Secondary Log- 
ical Unit accepts the BIND sent by the Primary Logical Unit. 


® A conversation is a data exchange between brackets. The conversation begins 
with a "begin bracket’ and ends with the ‘end bracket" command. 


As only one bracket pair is possible at a time in a session, only one conver- 
sation can flow at a time, and a session will be serially occupied by a con- 
versation. 


5.3.3.2 Session initialization 


A session 15 a connection between two logical units. One is the Primary Logical 
Unit (PLU) which sends the BIND request, the other is the Secondary Logical Unit 
(SLU) which receives the BIND. | 


A session between two Logical Units can be established in several ways: 


e From the SLU, via the SNA command INIT-SELF. This means that APPC/PC can 
request the establishment of a session with CICS. 


e From VTAM. The VTAM operator can request CICS to start a session with the 
PC SLU via a VARY NET command Ce.g.'VARY NET ACT,ID=TRLUIPC1, LOGON=CICSA'). 
Instead of entering the command, the parameter LOGAPPL of the LU macro can 
be used to produce the same effect. 


° From CICS. Several possibilities exist to start a session from CICS. One 
1s to specify CONNECT=AUTO in the TCT TYPE=SYSTEM table of CICS. In this 
case, each time CICS is started it will try to astablish a session with the 
workstation SLU. Another possibility is to enter a CEMT (CICS Master Ter- 
minal Function) command to acquire a session with the workstation SLU. A 
third possibility is to start a CICS user transaction which requests a 
conversation. CICS will try to start a session with the workstation SLU 
to allow the conversation to be processed. . 


Note that the SNA command Start Data Traffic (SDT) is not used with LU 6.2 
protocols by the PLU (CICS). Instead, CICS will send an SNA LUSTAT command. 


5.3.4 Elements of an APPC/PC System 
A APPC/PC system contains three main components: 


e APPC/PC itself: This is the executable code shipped by IBM. It must be 
loaded before any APPC/PC calls can be made. APPC/PC performs LU Type 6.2 
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defined functions and provides an interface for control and service funcy- 
tions. 


The Application Subsystem: This performs control functions for APPC and 
service functions for Transaction Programs. It sets up the communication 
base attaching the PU, attaching the LU, activating the DLC and preparing 
the sessions (CNOS). 


Transaction Programs: These are user application processing programs, typ- 
ically cooperating with transaction programs at other APPC/PC nodes. A 
programmer uses APPC/PC verbs to communicate with APPC/PC. Each verb re- 
presents a service provided by APPC/PC, and many of them represent LU 6.2 
functions defined in the architecture. Verbs are accompanied by parameters 
whose values are either supplied by the program or returned by APPC/PC. 
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5.3.5 Planning 


5.3.5.1 Tasks and activities for APPC/PC Implementation 


Several functions are involved, and tasks required, to establish APPC/PC com- 
munication. 


& System Programming 


Configuring the Communication Profile for APPC/PC. This 1s a menu- 
driven procedure to set up the communication profile for a specific PC. 
There are three menus to specify system parameters and attachment in- 
formation. This task is invoked by entering APPCONF Cat the DOS prompt) 
and can also be performed by a skilled workstation user. 


Writing an Application Subsystem: The Application Subsystem has certain 
specific responsibilities (e.g. activating DLC and handling of incoming 
ALLOCATE requests). To write such an Application Subsystem, PC Assem- 
bler programming skill and communication architecture skills are re- 
quired. 


e Application Programming 


This is the task of writing user programs to perform distributed 
transaction processing. A transaction program uses certain APPC verbs 
to invoke APPC/PC functions. Currently these verbs must be specified 
through parameters passed to APPC/PC from Assembler language programs, 
but applications may be written in a higher level language, and as- 
sembler drivers can be used to interface with APPC/PC. 


° Workstation User 


Initiation of a transaction program will be either local or remote. 
Prior to initiation of a transaction program, APPC/PC and the Applica- 
tion Subsystem must be loaded. 


5.3.5.2 General planning considerations 


Coexistence and Dependencies on other Products 

° DOS 3.2 required for Token-Ring Network 

e APPC/PC Release 1 supports Token-Ring Attachment 

° CIcS 1.7 is required for communication with APPC/PC Release 1 


e APPC/PC can coexist with the PC LAN program 1.1, but only if the PC LAN 
program is configured as Re-director. A PC cannot support concurrent PC LAN 
Server processing with APPC/PC. 


° APPC/PC cannot be used from a shared disk, because the communication profile 
is specific fo a PC 


° APPC/PC checks the Token-Ring Network adapter status. If the adapter has 
already been opened by another application, it will not reopen it, but will 
share the adapter if permitted to do so by the other application or sub- 
system. : 


e If any other application has opened the adapter (e.g. PC 3270 Emulation) 
then the locally administered address must match the address defined in the 
APPC/PC application (SEND_AS and RCV_AS). 


e When an APPC/PC and a NETBIOS application run concurrently on a Token-Ring 
Network PC, they access the PC Token-Ring Network Adapter through different 
Service Access Points (SAP's). A parameter of the NETBIOS initialization 
command CNETBEUI) is used to reserve additional SAP's for such requirements 
as running APPC/PC. These SAP's are used to differentiate between NETBIOS 
requests and APPC/PC requests. 
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APPC/PC deallocation does not close the Token-Ring adapter. APPC/PC closes 
the link station and resets the SAP, which terminates access to the ring 
for APPC/PC. Other applications can continue to use the adapter. 

Storage reguirement for APPC/FC 


The minimum storage requirements for APPC/PC Release 1 are: 


~ Support for Token-Ring communications - 202K 
- Support for SDLC communications - 192K 
- Support for both type of communications - 215K 


Considerations for access to INS data bases by using APPC 


The following information is only applicable if IMS and CICS are both installed 
at the System/370 host. 


IMS/VS does not provide APPC support, but it is possible to access IMS databases 
through CICS applications which support LU 6.2 and DLZ1. 


The IMS database can be used concurrently by the Communication facility of 
IMS/VS, since Block Level sharing of IMS databases is supported between IMS DC 
and CICS. 


In addition, Inter-Systems Communication (CISC) can be used between IMS and CICS 
for distributed transaction processing. 


5.3.6 Preparation 


5.3.6.1 Tailor APPC/PC System and Communications profile 
One of the following panels can be selected after typing APPCON at the DOS 
prompt: 
1 Define/Update System Parameters 
2 Define/Update IBM Token-Ring DLC Parameters 
3 Define/Update SDLC DLC Parameters 
On the next page is an example of the parameters we used for our test. Only 


selection 1 and 2 are considered because the SDLC DLC panel (selection 3) is 
not applicable for a Token-Ring environment. 
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System and DLC Parameters Panels for Token-Ring Environment 
PANEL 1 - DEFINE/UPDATE SYSTEM PARAMETERS 


CHOICE POSSIBLE CHOICES 


Machine Type 0 - 9999 

Machine Serial Number 7 Alphanumeric Uppercase char 
Node ID 1 ~- 5 hex digits 

Transl. DOS Filename 

DOS Control Break 1 = yes 2 = no 

Workspace Size 18-400 Kbytes 


PANEL 2 - DEFINE/UPDATE IBM TOKEN RING DLC PARAMETERS 


ITEM CHOICE POSSIBLE CHOICES 


Load Option 

Percent Incoming Calls 
Congestion Tolerance 
Receive Window Count 
Send Window Count 


yes 2 = no 

100 

100 

8 

8 

32 

12 hex digits (Call O's or 
starting with 4,5,6, or 7 
- 1920 

Primary 1 = Secondary 
Link take-down 

No Link take-down 


ie 
Max. Number of Link Stations 02 
Local Node Address 4000313010 


Maximum RU Size 
Adapter Number 
Free Unused Link 


Mr Oh CO Ff ee OO re 


oth thas m © Fb ' tou 


Comments about parameters affecting host communication 


NODE ID: This value is used during XID-3 exchange at initial link level 
contact and must match the value specified in the VTAM Switched Major Node 
CIDNUM= in PU Macro). The corresponding IDBLK (x'050" for APPC/PC) is 
hard-coded in APPC/PC and cannot be altered. 


DLC NAME: This parameter is used during activation of DLC to identify type 
of adapter in use. The value can be either 'ITRN*' for Token-Ring Adapter 
or 'SDLC' for SDLC Adapter. 


MAXIMUM NUMBER OF LINK STATIONS: This value defines the extent to which 
multithreading may be supported by the Application Subsystem. To support 


locally and remotely initiated Transaction Programs, this value must be at 
least 2. 


LOCAL NODE ADDRESS: Specifies the Token-Ring adapter address. If a value 
of all O's is defined, the universal (Cburned-in) adapter address will be 
used. The adapter address value is used in ATTACH_LU verbs as a parameter 
when defining PARTNER_LUs. If universal addresses are used, the Application 
Subsystem is tied to the physical adapter; use of locally administered 
adapter addresses may provide greater flexibility. 


Define/Update SDLC DLC Parameters - The SDLC Panel does not apply in 
Token-Ring environment. 


5.3.6.2 Defining a Application Subsystem 


An Application Subsystem must be developed prior to running APPC/PC applica- 
tions. This subsystem defines the capabilities of the APPC/PC workstation, and 
can be developed as a 'generic' subsystem with predefined utility routines to 
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execute attachment sequences for particular system or application configura- 
tions. 


To communicate with a subarea host, the Token-Ring Destination Address 1s re- 
quired to identify the 3725 TIC. This address has to be defined in the Appli- 
cation Subsystem. 


Information about developing a Application Subsystem can be found in the APPC/PC 
Programming Guide (Part Number 61X3842) and an example can be found in Appendix 
E of this document. 


5.3.7 Sample Operating Scenario 


The following scenario was used during our tests. In these tests, a CICS host 
transaction was invoked by a transaction originating at the PC. The scenario 
shows all the required steps. In a production environment, this command sequence 
could be incorporated ina BAT file to simplify transaction processing for the 
end user. 


° Allocate appropriate PC DOS subdirectory 

® Load TOKREUI 

e Load APPC/PC by entering APPC at the DOS prompt 

e Invoke the Application Subsystem 

° For a locally initiated transaction, enter the name of the Transaction 
Program. 

e After the Allocation message shows a zero return code the transaction pro- 


gram starts execution and may prompt the user for transaction related data. 
° Enter APPCUNLD at DOS prompt to unload APPC/PC when all APPC transactions 
are completed. 


Publication Reference 


More information about APPC/PC can be found in 


An Introduction to Programming for APPC/PC GG24-3034 
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5.4 ENHANCED CONNECTIVITY FACILITIES (ECF) 


These facilities were announced in July 1986. They were not implemented in our 
test environment and they are only highlighted in this document to complete the 
description of host communication facilities for Token-Ring Network stations 
provided via the 3725 NTRI. 


5.4.1 Overvien 


The Enhanced Connectivity Facilities include a set of IBM-provided Requester 
and Server programs for IBM Personal Computers, MVS/XA, and VM/SP host comput- 
ers. The IBM Requester/Server programs provide access to System/370 databases 
and files and extend the personal computing environment to include System/370 
resources. | 


Also included is the Server-Requester Programming Interface (SRPI), a new pro- 
gramming interface for development of interconnected host and Personal Computer 
applications. The SRPI provides application programmers with a consistent means 
of issuing requests for services and receiving replies across a System/370 host 


to IBM Personal Computer connection. The SRPI 15 a program-to-program interface 
using SNA (LU Type 2 protocols) or non-SNA connections. 


5.4.2 ECF Product Implementation 


The following licensed programs support IBM System/370 to IBM Personal Computer 
Enhanced Connectivity Facilities: 


IBM SYSTEMN/370 


° TSO Extensions (TSO/E) Release 3 with the MVS/XA feature (5665-285). The 
MVSSERV command in TSO/E includes the router and the SRPI. 


° TSO/E Servers (5665-396) includes host data access and virtual services. 


° YVM/SP Release 4 (5664-167). The CMSSERV command being added to VM/SP Release 
4 (via PUT) includes the router and the SRPI. 


° VM/“CMS Servers (5664-327) includes host data access and virtual services. 
IBM PERSONAL COMPUTER 


° IBM PC 32/70 Emulation Program Version 3 (59X9969) includes the router and 
the SRPI. 


e IBM Personal Computer Requesters (6316993). 


5.4.3 Regueasters and Servers 


Two of the key elements of ECF are Requester and Server programs, operating in 
pairs. Requesters in the IBM Personal Computer are designed to provide the 
functions needed by a Personal Computer user to request services or data from 
an IBM System/370 computer. Servers in the IBM System/370 computer are designed 
to reply to requests for services or data from the IBM Personal Computer. 
The IBM-provided Requesters/Servers are, as follows: 

~ IBM Personal Computer Requesters 

~ TSOYVE Servers for MVS/XA host computers 


~ CMS Servers for VM/SP host computers 
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The IBM Requester/Server licensed programs provide the following set of func- 
tions: 


Host Data Access 


Dynamic or predefined query capability is provided for the Personal Computer 
user to directly access DB2 and SQL/DS. File definitions and query infor- 
mation may be stored for reuse. 


DXT allows the user to extract information from DB2, SQ@L/DS, DL/I and Fast 
Path databases, and VSAM and SAM files for use in Personal Computer appli- 
cations. Extracted data is stored in DXT Integration Exchange Format. The 
user may also list and select jobs, and predefine those jobs to be run in 
batch mode. | 


Virtual Disk 


Through the virtual disk, host disk space is used as personal computer 
virtual disk space. Data is stored in personal computer format. Virtual 
disk allows users to share data using existing host file facilities, and 
provides direct import/export from host files. 


Virtual File 


Virtual file allows the user to use host files as local Personal Computer 
files. Translation from host data types to Personal Computer data types 
and field-level transformations are provided. VM CMS files and MVS” se- 
quential and partitioned datasets are supported. 


Personal computer access to host files is controlled by host security fa- 
cilities (such as RACF). Host files can be shared among host and Personal 
Computer applications. 


Virtual Print 


Using virtual print, Personal Computer printer output may be directed to 
the host printer. Virtual print transforms Personal Computer print 
datastreams to IBM 3800 Model 1 or IBM 1403 host printer datastreams. 


Execution of Host Procedures, Commands, or Programs 


The user may initiate real-time execution of host procedures, commands, or 
programs, including VM EXECs, TSO/E CLISTs» and TSO/E or CMS host commands. 


Full-Screen User Interface 


An easy-to-use, full-screen interface provides Personal Computer user ac- 
cess to host data and resources, as well as an extensive online help fa- 
cility. 


Personal Computer Command Interface 


A Personal Computer Command Interface is provided for programmers and ex- 
perienced users. Commands may be entered on the DOS command line or in a 
BAT file, or they may be invoked from an application program through a 
subroutine call. 


File Transfer 


= File transfer allows files to be transferred between the personal com- 
puter and the host, or copied between a virtual disk and a host file. 
Field-level transformations and an exit for user- supplied data map- 
Pings 1s provided. 


me: The following Personal Computer interchange formats are supported 


Data Interchange Format (DIF) (1) 

LOTUS Corporation SYMPHONYC1) WRK Format 

LOTUS 1-2-3 (1) WKS Format 

dBASEII €2) and dBASEITI (2) SDF Delimited Format 
Comma separated variable (CSV) 

Multiplan €3) Input Format (SYLK) 
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(1) DIF, WRK, WKS, LOTUS 1-2-3, and SYMPHONY are registered trademarks of Lotus 
Development Corp. , 


(2) (ABASEII and a are registered trademarks of Ashton-Tate Corp. 


(3) Multiplan is a registered trademark of Microsoft Corp. 


5.4.4 Communication Support 


A wide range of connectivity options are available through IBM PC 3270 Emulation 
Program Version 3: 


e Direct attachment to the IBM 372X Communication Controller via the IBM 
Token-Ring Network 


e Distributed Function Terminal (DFT) Mode attachment to an IBM 3174 or 3274 
Control Unit. 


° Remote communications attachment to an IBM 372X via SDLC links. 


5.4.5 Softnare Requirements 


For MVS/XA TSO/E: 


e MVS/SP Version 2 Release 1.2 (MVS/XA), JES2 (€5740-XYS) or JES3 (5665-291) 
and either MVS/XA Data Facility Product Version 1 Release 1.2 (5665-284) 
or MVS/XA Data Facility Product Version 2 Release 1 (5665-XA2) 


° TSO/E Release 3 with MVS/XA feature (5665- 285) which includes the SRPI 
Support 


e ACF/VTAM Version 2 or a higher level 


e Interactive System Productivity Facility CISPF) Version 2 Release 2 
(5665-319) if using IBM TSO/E Servers. When using functions that require 
IBM DB 2 and/or IBM Data Extraction Program (DXT), IBM DB 2 Release 1 
(5740-XYR) and DXT Version 2 (5668-788) are required. 

For VM: 


VM/System Product Release 4 (5664-167) which includes SRPI support (via 
PUT), with or without High Performance Option CHPO) (5664-173) 


© ACF/VTAM Version 3 (5664-280) Cfor SNA/SDLC connection) 


e Interactive System Productivity Facility Version 2 Release 2 (5665-282) if 
using IBM CMS Servers. 


e When using functions that require SQL/DS and/or DXT, SQL/DS Release 3.5 
€5748-XXJ) and DXT Version 2 (5668-788) are required. 


For IBM Personal Computers: 


e IBM Personal Computer DOS 3.1 or 3.2. DOS 3.2 1s required for the IBM 
Token-Ring Network. 


e IBM PC 3270 Emulation Program Version 3 (59X9969) on the IBM Personal Com- 
puter, Personal Computer XT, or Personal Computer AT 


e EZ-VU II Run Time Facility (6317025) if using the IBM Personal Computer 
Requester Full Screen Interface. 


IBM Requester/Server Licensed Programs: 
° IBM TSOVE Servers (5665-396) or 


e IBM CMS Servers (5664-327), and 
e IBM Personal Computer Requesters (6316993) 
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Publication Reference 


Introduction to IBM System/370 to IBM Personal Computer Enhanced Connectivity 
Facilities (€GC23-0957), provides more information about Enhanced Connectivity 
Facilities and the IBM Requester/Server licensed programs. 
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5.5 TEST ENVIRONMENT 


The workstations used in our host communications tests were IBM PC/XT's and 
PC/AT's with standard products for communicating with each other over the 
Token-Ring Network or with a 4370 host via an SDLC link. The following products 
and levels were tested: | 

©  PC/DOS V3.2 

° TOKREUI - Token-Ring adapter code supplied with the PC Adapter Card. 

° NETBIOS Vi 

° PC 3270 Emulation V3 - in both standalone and gateway configurations 

e APPC/PC - with an application written to communicate with CICS 


° Token-Ring Network Manager 


e Token-Ring Bridge Program 


5.5.1 PC 3270 Emulation Configurations 


@oe000608080800086CG88 0808 
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68 IBM 3725 NTRI Planning and Implementation 


5.5.2 APPC/PC Configuration 
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6.0 SAMPLE CONFIGURATIONS AND BACKUP CONSIDERATIONS 


3725 NTRI and Token-Ring Network capabilities provide backup flexibility to 
handle nearly all situations. The Token-Ring Network with bridges supports many 
configuration possibilities and the routing facility of Token-Ring Network 
makes it unnecessary to predefine backup paths. Each TIC 15 represented on the 
Token-Ring Network like any other station. 


Existing VTAM and NCP backup facilities are valid for the logical (Cswitched) 
connections of Token-Ring Network devices. 


6.1 BACKUP CONSIDERATIONS 


Cs Rn SEER 


From the host's point of view the rules for backup of switched resources are 
valid for the Token-Ring Network environment. A new facility in NCP V4&R2 pro- 
vides enhanced switched connection support. 


6.1.1 Enhanced Switched Connection Support of ACF/NCP V4R2 


In previous versions of ACF/NCP, switched lines could only be defined as 
ANS=STOP, with the result that switched lines were always disconnected during 
ANS processing. With NPSI and NTRI, switched connection support and receovery 
become more important. ACF/NCP V4R2 allows a user to define a switched con- 
nection with ANS=CONTINUE. With this type of connection, the Switched Line and 
PU remain active when the owning SSCP (host) is lost. The LU session between 
the terminal and the non-owning host remains active until the session terminates 
normally or the network operator intervenes. Takeover is not provided for and 
any attempt to activate a switched link that is already active is rejected by 
NCP with a sense code of X'0801"'. 


Since no VTAM support is required for this enhancement, the user must still 
specify ANS=STOP in the Switched Major Node PU definition. ACF/NCP V4&R2 checks 
the PU to see if ANS=CONTINUE was specified. If during ANS-Processing the 
ANS=CONTINUE indicator is set for a Switched Line PU, NCP does not issue the 
disconnect for the PU and all LU-LU sessions remain active. The switched line, 
PU's and LU's do not have any owner, and the switched connection remains active 
even if all LU-LU sessions have ended. The only way to disconnect the link is 
with "forced deactivation’. 


If the owning VTAM its restarted, 1t assumes that the switched connections are 
broken but that they are still active. VTAM and NCP do not support activation 
of a switched line if the line is already active. If VTAM issues ACTLINK for 
an already active link, the NCP will send a response with sense code X'0801' 
and indicate that the activation failed. 


If another SSCP Chost) wants to get (Ctake over) ownership of the link, a 
DACTLINK has to be issued before reactivating the link for the new SSCP. 


6.2 BACKUP CONSIDERATIONS FOR THE TOKEN-RING HOST ATTACH 


From the network station point of view, the main question is how to survive in 
case of a fault in one of the components and how to restart using a different 
path to bypass the failing component. 


The situations where sessions with application hosts remain active if the owning 
host fails are covered in the previous section. If a network component fails, 
the sessions using this component will be disconnected. 


Token-Ring Network facilities exist to recover from many such situations. See 
"Network Management and Recovery" on page 77 for more details. The remaining 
network component which can fail is the 3725. If this is the case an alternate 
path and resource takeover jis required. Automatic takeover 15 not available 
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for switched major nodes but a manual takeover is possible when the. resources 
are predefined in a second subarea node. 


Alternate path to the Host by using a backup TIC 


Backup network components are required for an alternate path. This can be a 
second 372X Token-Ring Network attachment, directly attached or accessible over 
bridges to a ring where an alternate path is configured. 


Workstation-initiated request: 


The communication profile for a host communication application of a network PC 
usually specifies the locally administered address of the TIC to be used by a 
particular application. To change this destination address in subsystems (such 
as the PC 3270 Emulation program) involves a very short task Which can be pre- 
defined by creation of two 3270 Emulation start modules, one with the primary 
TIC address and one with the alternate TIC address. If the emulator is always 
loaded by BAT file commands, a second BAT file can be used to start communi- 
cation using an alternate TIC. This makes normal startup easier for the end- 
user, and makes backup relatively transparent. 


SCENARIO to create BAT files for 3270 Emulation 


Execute Communication Profile Task with TIC A as Destination Address 
Rename resultant module PSCAnnnn.PGI to TICA 

(Where 'nnnn' is the product version and level number e.g. PSCA0300.PG1) 
Execute Communication Profile Task with TIC B as Destination Address 
Rename resultant module, PSCAnnnn.PG1l, to TICB 

Create BAT File (name=3270.BAT) which copies TICA as PSCAnnnn.PGl 

Create BAT File (Cname=3270B.BAT) which copies TICB as PSCAnnnn.PGl 


If gateway and network stations are ace this procedure is only required for 
the gateway station. 


A disadvantage of this implementation is that the end user must know when to 
use the backup command. | a 


Subarea host-initiated request: 


A procedure not involving the end user is to have a alternate TIC pre-generated 
with the same locally-administered address as the primary TIC. The physical line 
for the alternate TIC is normally not activated. If the 372X with the primary 
TIC fails, now the physical Line and PU with the original destination address 
can be activated and the end user can reestablish host communication using the 
normal production command or BAT file. 
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6.3 SAMPLE CONFIGURATIONS 


6. 


-l Single Host / Multiple Rin 


HOST 


APPL1 | APPL2 | APPL3 
ACF VTAM 


ACFZNCP V4R3 with NTRI 


RING RING2Z [| 
Ba! 


BRIDGES -—-> Bo 


RINGS CU's 


Figure 14. Configuration with Single Host and Multiple Rings 


Comments 

° Up to 4 rings can be directly connected to a 3725 

® Up to 8 rings can be directly connected to a 3725 with 3726 
e Other rings can be connected through bridges 

° Several TIC's can be connected to the same ring 

® 


Each TIC could be backup for any other TIC's (change of destination address 
in communication profile required). 

A TIC (€e.g. TIC4) could be predefined as backup TIC (not used as destina- 
tion). In a situation where backup is requested, a NCP must be loaded with 
the locally administered address of the failing TIC used in TIC4. 
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6.3.2 Multiple Host 7 Single Ring 


| RING-——-A 


V V 
RING RING 
STATION A STATION B 


Figure 15. Sample Configuration - Routing of Incoming Calls 


ROUTING OF INCONING CALLS 


This figure indicates that NTRI permits routing of incoming calls to a prede- 


fined SSCP. This can be achieved by using two different ports from the same 
token ring. 


With dial lines, any incoming call is routed to the owning SSCP of the dial line. 
On reception of an incoming call,NTRI has to choose an available dial line. A 
network station calling a host uses the TIC locally administered address as 


destination for the dial in request,but TIC's can be owned by different SSCP's 
Ce.g. by OWNER Parameter in LINE). 


If no owner is specified, the SSCP activating the line first will assume own- 
ership. Therefore, a station may direct its incoming call towards either Host 
1 or Host 2 by sending its incoming call to Port 1 or Port 2 
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6.3.3 Multiple Host / Backbone Ring 


> BACKUP 
FOR TICS | FOR TIC1 


BACKBONE RING 


z 
RINGI RINGS RINGS 
RING2 RING4 


Figure 16. Configuration with Multiple Hosts and Backbone Ring 


Backup Considerations for Fatling Components: 


Host 1 fails: 


Application sessions with Host 1 become inactive 
All sessions with Host 2 are still active Cindependent of ownership) 


Manual Cpredefined) takeover is possible to enable Logon to applications 
on Host 2. 


3725 with NCP1 fails: 


Application sessions using TIC1 become inactive 

All sessions using TIC3 are still active 

If the locally-administered address defined in NCP for TIC4 is identical 
With the locally-administered address of TIC], new sessions can be started 
after activating the physical Line and PU for TIC4. 

TIC4¢ can be loaded with the locally administered address of TICl. After 
opening TIC4& CACT PU), normal processing continues. Loading of the Backup 
3725 (NCP2) has to be considered. 


Sample Configurations and Backup Considerations 75 


6.3.4 Multiple Host / Multiple Backbone Ring 


HOST1 | HOST2 
| VTAM VTAM 


372x | 372x 
NCPL | NCP2 
‘a 
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V————- BACKBONE RING 2 V 
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STATION STATION 
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Figure 17. Sample Multiple Backbone Configuration 


COMMENTS: 
This configuration offers high availability 

e This configuration offers additional capacity 

° The utilization of the two backbone rings is automatically balanced through 
the routing concept of IBM Token-Ring Network 

° Host communication sessions normally pass only 1 bridge 
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7.0 NETWORK MANAGENENT AND RECOVERY 


7.1 NETWORK MANAGEMENT 


Token-Ring Network stations require Switched Major Node definitions in VTAM to 


support requests for host communication. Using this approach, the fact that 
the stations reside on a Token-Ring Network is transparent to VTAM and to 
NetView. However it is not transparent for NPI1, which cannot support the 


measurement of the line utilization of a Token-Ring. 


The Token-Ring Network itself may be a host-independent environment, and 
therefore requires host-independent Network Management components and functions 
in addition to those typically available at a host. To minimize redundancy, 
the host components are complementary to these capabilities. 


If a Token-Ring Network is attached to a host, NTRI provides Network Management 
support through Network Management Vector Transport CNITVT) messages. NTRI does 
not manage the Token-Ring Network but notifies the host about inoperative con- 
ditions on the ring. The Token-Ring Network Management products are still re- 
quired and responsible for network management of the Token-Ring. 


7.1.1 Token-Ring Netnork Management Products - Highlights 


e Adapter Diagnostic Program: 


- Is part of the PC Token-Ring Adapter package 
- Included in the Adapter Support Program Diskette 
- Performs adapter test functions 


e Ring Diagnostic Program 


-~ Is part of the PC Token-Ring Adapter package 
~ Performs ring diagnostic functions 

- Monitors ring status and indicates changes 

- Can be used as a continually running program 


° Token-Ring Network Manager Program: 


Is a licensed program 

Provides improved functions to manage the ring 

Provides ring configuration information 

Supports allocation of symbolic names for ring stations 
Performs Alerts and event logging 


° Token-Ring Network Bridge Program: 


Supports Bridge Management functions 
Provides Bridge Configuration information 
Reports beaconing conditions 

Provides a path trace function 


Management Support 


Both the Ring Diagnostic Program and the Token-Ring Network Manager Program 
support network management. The Token-Ring Network Manager provides more func~ 
tions and is recommended for large rings or when high availability and reli- 
ability 1s important. 


It is difficult to give precise guidelines for the number of workstations for 
which the Token-Ring Network Manager program is recommended. When the number 
of workstations gets above 30-40 for a single ring or (there is sufficient 
traffic on the ring,) it would be useful to use the Token-Ring Nettork Manager. 
Another criterion might be the use of devices such as 3174 Control Units, be- 
cause the availability requirement in such an environment 1s traditionally very 
high. 


Publication References 
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Token-Ring Network - Problem Determination Guide SY27-0280 
Token-Ring Network - Bridges and Management GG24-3062 


7.1.2 Host Products for Token-Ring Network Management 


NetView support - NPDA Component 


NTRI notifies the NPDA operator with an Alert message when the 
Token-Ring becomes inoperative 


NTRI generates the following types of Network Management Vector 
Transport CNMVT) messages for NetView: 


= Alert messages Major Vector = X‘'0000' 
= Link Event messages Major Vector = X'Q001'° 
= PD Statistics messages Major Vector = X'0025' 


Alert and Link Event messages are used for error reporting 

PD Statistics messages are for Statistical data reporting 

New NPDA screens are available to support the new Subvectors 
NMVT messages used by NetView for operator attention and logging 


NPDA cannot issue diagnostic request for the ring 


NetView support - NLDM Component 


No changes were required in NetView to support NLDM for 
Token-Ring network stations. 

The NLDM functions are session-related and therefore transparent 
to Token-Ring stations. 

The Response Time Monitoring CRIM) facility is not supported 

by the PC 3270 Emulation Program. 

The Configuration support functions of NLDM are supported for 
SNA resources of the Token-Ring. 


Network Performance Monitor CNPM) 


Ring utilization cannot be measured by NPM because the 

"NPACOLL' and the 'NPARSC* keywords in the NCP definitions are 
Invalid if ECLTYPE has been specified. 

NPM functions which are transparent to VTAM and not based on 
NPACOLL data information should work for Token-Ring Network 
Stations Ce. g., the Response Time Measurement Facility of NPM). 
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7.2 TOKEN-RING NETNORK AND NTRZI RECOVERY PROCEDURE 


From the host's point of view, ring recovery is part of the ring function and 
no host components are involved other than the TIC, which is part of the ring 
and 1s thus subject to the same ring recovery procedures as other station 
adapters. In case of errors, the TIC will inform NTRI, and appropriate recovery 
actions will be taken and alerts raised as necessary. 


7.2.1 Ring Station Insertion and Removal 


The Token-Ring Network operates with a single token protocol and unidirectional 
transmission. The token is continually received and retransmitted by every ac- 
tive station on the ring. Insertion or removal of network stations does not 
halt or disrupt transmission and causes automatic update of the ring topology 
through the Nearest Active Upstream Neighbor (CNAUN) Notification process. 


The Multi Station Access Unit (MSAU) is designed so that if a ring station is 
disconnected or a lobe wire is broken, the lobe is automatically removed from 
the ring at the MSAU. 


If a ring adapter determines that it is failing and interrupting the ring, it 
will remove itself from the ring at the MSAU. 


Ring Station Insertion: The act of connecting a Ring Station lobe into the MSAU 
does not make it a member of the ring. An electromagnetic relay at each of the 
eight ports of the MSAU keeps the circuit between the ring adapter and the ring 
media open. 


In order to connect to the ring the ring adapter must send a low voltage DC 
signal to the MSAU port. This is an induced DC voltage and therefore does not 
affect the digital signal on the lobe cable. This signal closes the relay in 
the MSAU and makes the ring station (Clobe) part of the ring. This allows the 
ring station to identify itself and to participate in ring operations. 


Ring Station Removal: If the, ring adapter determines that it is the source of 
a ring lobe problem then the DC signal is dropped and the MSAU relay opens. This 
breaks the ring circuit for that lobe and the ring station is thus bypassed. 
If the lobe cable is unplugged from the MSAU, the relay will again open. This 
15 also true if the lobe cable is unplugged at the ring station. 
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7.2.2 Type of Ring Errors and Beaconing Process 


Two Types of Error may occur on the Token-Ring Network - Soft Errors or Hard 
Errors. | : 


7.2.2.1 Soft Errors 


Soft errors are defined as intermittent errors which temporarily disrupt normal 
operation of the ring. Normally soft errors are caused when data must be 
transmitted on the ring more than once to be received correctly. 


Soft errors are handled by error recovery procedures and are not usually noticed 
by the user. Each ring station maintains counts of the frequency of occurrences 
of the most critical soft errors and periodically sends these counts to the Ring 
Error Monitor CREM). 


Typical soft errors include: 


° Line Errors: First detection of a Frame Check Sequence error or a Code Vi- 
olation 

® Internal Errors: A ring station detects a recoverable internal error 

° Lost Frame Errors: Detected when a ring station's physical trailer timer 
expires | 

e Token Errors: Detected by the active monitor when its token timer expires. 


7.e.ec.e Hard Errors 


Hard errors are permanent faults, usually in equipment, which cause the ring 
to stop operating within the normal Token-Ring protocols. 


Equipment causing hard errors could be: 


° Multi-Station Access Units (MSAU'sS) Ce.g., Relay) 
e Cables between MSAU's 

e Transmitter side of station adapter 

° Receiver side of station adapter 


If a hard error occurs on a ring, the next downstream station will recognize 


the fault (missing incoming signal) and automatically start a recovery proce- 
dure. This recovery procedure is called a beaconing process. | 
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7.2.2.3 Beaconing Process 


When a hard failure is detected, the cause of this failure must be isolated and 
bypassed in order to restore proper operation of the Token-Ring Network. The 
ring station that has detected this hard error transmits a ‘Beacon’ MAC frame 
with an all-stations address to its ring and 1s called the 'beaconing' station. 
All other stations that receive the Beacon MAC frame enter "Beacon repeat mode’. 
The Beacon message circulates one ring only; it does not cross bridges onto 
other rings. 


The beaconing station assumes that the hard failure (broken situation) must be 
somewhere between its receiver and the next upstream station. This station is 
called the Nearest Active Upstream Neighbor (CNAUN). Consequently, the Beacon 
MAC frame identifies the address of the Nearest Active Upstream Netghbor (NAUN). 
When the NAUN of the beaconing station has copied eight of these Beacon MAC 
frames, the NAUN removes itself from the ring and tests itself. If the test is 
successful, the NAUN reattaches to the ring, otherwise the NAUN remains unat- 
tached. 


If the ring does not recover after the NAUN tests itself and is back on the ring, 
the beaconing station removes itself from the ring and tests itself. If that 
test is successful, the beaconing station reattaches to the ring, otherwise it 
remains unattached. 


If the ring does not recover after both the NAUN and the beaconing station have 
self-tested, the error cannot be repaired using automatic recovery, and manual 
intervention is required. Such a non-recoverable hard error situation could 
occur if the main ring path between the NAUN and the beaconing station is bro- 
ken. This situation is only recoverable if the ring is configured with an al- 
ternate backup path. 


Up to 30 seconds of the beaconing process may be required before the error can 
be declared an unrecoverable hard error. During this time, the host sessions 
are interrupted, but they are still alive. If the hard error can be recovered 
by removing a station from the ring the users can continue working without a 
session restart. 


Beaconing situations are immediately recorded and displayed by: 


e Ring Diagnostic Program 
« Token-Ring Network Manager Program 
e Bridge Program 


e NetView Program Chost) 
® NetView/PC Program 


° 372X MOSS Console 
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7.2.3. NTRI Process related to Token-Ring Error Recovery . 


The ring adapter (TIC) notifies NTRI about beaconing via the Ring Status in- 
terrupt with the Hard Error bit on. When NTRI services such an interrupt, it 
starts a 30-second timer. 


At the end of the 30-second timer, the ring status bits are checked to identify 
the type of hard error: | 


e Auto-Remove Error: This is a detected failure of the adapter or wiring. NTRI 
remains de-~inserted and reports an ALERT message, ‘Permanent Error’. 


e Hard error: If there is a Hard Error status after 30 seconds, then NTRI 
sends an ALERT message, ‘Permanent Error’. 


e No Error: If there is no Hard Error and no Auto-Remove error status after 
30 seconds, then the error has been recovered and an ALERT message, ‘'Tem- 
porary Error' is reported. 


When NTRI generates an ALERT message, it specifies the Beacon fault domain. 


If the "Transmit Beacon’ indicator is OFF in the Ring Status, it indicates that 
the fault domain is the Beaconing station, the NAUN of the last received Beacon 
MAC frame or the lobes and wiring between that two stations. 


If the "Transmit Beacon’ indicator is ON in the Ring Status, it indicates that 
the a is beaconing. Therefore the fault domain consists of the TIC itself and 
its NAUN. 


When the VTAM operator activates the physical line to the TIC, the TIC is ini- 
tialized but not opened. The TIC will be opened and become a part of the ring 
after the operator activates the physical PU for the TIC. If the TIC is inserted 
into a ring which is beaconing or begins to beacon during insertion, the attempt 
to open the TIC will fail. In this situation, the VTAM operator should not try 
ss fe ai the Line and PU before the 30-second interval (Beaconing Process) 
as ended. 


7.3. CENTRALIZED NETNORK MANAGEMENT 


Management of a Token-Ring Nettiork from a central location may be advantageous. 
Larger Token-Ring Networks, particularly those with 3174 Control Units will 
generally require high availability of the host interfaces as well as local 
server functions. The skill to manage and improve the availability of such 
resources is more likely to be found at the host site. 


It is important for the central site network management to designate a person 
to be responsible for managing the Token-Ring Network resources. This function 


aaa be the focal point for end users to contact when problems arise (Help 
esc). 


Netview/PC provides a capability for the host Netview operator to get network 
management alerts and data from the Token-Ring Network Manager Program. 


NetView/PC also provides Ramote Console Facility (RCF). It enables NetView/PC 
and Token-Ring Network Manager operating in a Local PC to be controlled from a 
Remote PC over an asynchronous communication link. The Remote operator may 
control any NetView/PC or Token-Ring Network Manager Function of the Local PC. 
Hhen the RCF session 18 active, all keystrokes from the Remote keyboard are 
passed to the Local PC Cattached to Token-Ring). The local operator's keyboard 
1s locked, giving the Remote operator control over the Local NetView/PC unless 
the local operator breaks the session. 


Using Remote NetView/PC is currently the only way to control a Token-Ring Net- 
work Manager from another site such as a Central Network Control Center. The 
remote NetView/PC operator in the NCC could, for example, use the menus provided 
by IBM Token-Ring Network Manager program to perform problem determination or 
execute ring tests. 
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3-1 Centralized Network Control Center - Example 
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Figure 18. Centralized Network Management - Configuration Example 


COMMENTS: 


All TRN Management functions can be performed from the NCC. with a combi- 
nation of Netview and Netview/PC. 

Each Multi-Station Access Unit (MSAU) tImplements an internal ring without 
the need to close the path connecting the 'I' and 'O' of the same. In this 
figure, an optional second Path has has been defined for Ring 2, which au- 
tomatically provides a backup path if one of the cables between NCC and 
building is defective. 

For Backbone Ring configurations, the considerations are a bit different. 
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8.1 


8.0 PROBLEM DETERMINATION 


PD TOOLS FOR TECHNICAL SUPPORT 


8.1.1 NTRI Trace Facilities 


NTRI provides three types of trace facilities: 


~ LINE Trace 
- IOH Trace 
-~ TIC Internal Trace 


8.1.1.1 The TIc Internal Trace Facility 


The TIC internal trace reports information to the host relative to the 
internal process of the TIC and is activated from the host as a Scanner 
Interface Trace (SIT). 


The TIC internal trace facility is normally not used by system programmers 
or system engineers. To interpret it, HW and TIC internals skills are re- 
quired, and information is not generally available in the field to support 
interpretation. 


8.1.1.2 The IOH Trace Facility 


The IOH Trace Facility supports a trace of all PIU'sS sant to a Token-Ring 
Multiplexer CTRM) or a TIC. This trace is activated, deactivated and re- 
ported to the host with the GTF line trace. 


8.1.1.3 The Line Trace Facility 


The Line trace is the trace most often used for debugging. Data related to 
the Line trace is transferred to the host, where it is retrieved and proc” 
essed by ACF/TAP. 


The activate/deactivate procedure for the NTRI Line trace is the same as 
for other Line traces. The only line for which a Line trace can be started 
is the physical link, but all logical link events are traced by the physical 
link. 
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Line Trace Key Points 


86 


The Line trace entries are taken from MAC software functions in the NCP. 
The data at this level is not exactly the data sent/received to/from the 
ring. 


Since the Line trace is supported only for Physical link, DA, SA, DSAP and 
SSAP information must be used to determine the logical Link. 


For performance reasons, NTRI allows only one Line trace to run at a time. 
Not all data received on the ring are traced for performance reasons. 

The order of frames shown in the trace jis the order that was transmitted 
to and received from the TIC. The frames are not necessarily in the order 


that they were processed by NTRI. 


hen a frame is received from the TIC, the Routing Information field has 
been padded to a full 18 bytes by the TIC. 


The Line trace and the IQH traces run together, and their elements appear 
mixed in the trace records. 


The Line trace process is designed to impact the path length of the normal 
Process as little as possible. 


A RECEIVE frame containing only the LIT entry represents a TIC MAC frame 
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8.1.2 Line Trace Example 


This 15 a Line Trace Example for a workstation initiated connection. The work- 
station application was PC 3270 emulation which ended with a ‘COMMUNICATION 
CHECK 510’ after attempting to invoke host communication. 


The reason for the hung communication was an invalid IDBLK parameter value in 


the VTAM switched major node definition. CO3A instead of the 017 required for 
3270 Emulation) After changing the value to '017° the problem was solved. 


1.Trace Record: Receive IEEE Standard XID '8103FE' 


REC 40072DC8 0007D078 C1072DCA 70001006 ---> LIT Entry 
1040 400001130000 €00000313000 iia 
Fi F2 F3 | 
0200 0000 0000 0000 0000 0000 0000 0000 0000 \-~? LLC Frame 
F4 F5 | 
00 04 BF 8103FE {--> 
F6 F7 F8 F9 
2.Trace Record: Response XID 
TRA 4007D078 00044000 C1072FC6 78CC0404 eo=> LIT Entry 
0040 400000313000 C00001130000 |--> 
0280 |--> LLC Frame 
04 01 BF 8103FE ;==> 
3.Trace Record: Receive XID - 0 
REC 40072DEC 0007D20% OO0072DEE 70001006 ---> LIT Entry 
1040 400001130000 C00000313000 |--> 
0200 0000 0000 0000 0000 0000 0000 0000 0000 |--> LLC Frame 
04 04 BF |--> 
4.Trace Record: Response XID - 0 
TRA G4OO07E6A4% 00044000 OO072FEA 78CC0404 ===> LAT Eatery 
0040 400000313000 c00001130000 |--> 
0280 |--> LLC Frame 
0% 05 BF |--> 
5.Trace Record: Receive SNA XID CIDBLK,IDNUM) 
REC C0072E10 0007D390 O0072E12 70001006 ~--> LIT Entry 
1040 400001130000 C00000313000 |--> 
0200 0000 0000 0000 0000 0000 0000 0000 0000 |--> LLC Frame 
04 04 BF 0200017E0001 [--> 


The explanation of the different trace information and the fields Fl -> F9 
follows. 
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Explanation for Line Trace Example 


See also ‘Frame Format! in the introductory chapter of this document for in-~ 
formation about the frame layout. 


e LIT Entry: Only the last 2 bytes are important for debugging. Explanations 
can be found in the updated version (Rel.4) of the 3725 Communication Con- 
troller Guide (6624-1653). 


e Field 1 - AC and FC field of Token-Ring Frame: 


The first part (SD) of the MAC frame is not shown in the trace because 
it is only available on the physical layer. 


AC "10° - Token bit on indicates that it is a frame. In a Transmit frame 
(from the 372X% to the ring) the token bit cannot be on because it is 
inserted by the physical layer. 


The Frame Control byte (FC) is the same in all trace entries (40), which 
indicates that it is a LLC frame. 


e Field 2 - Destination Address: 


The destination address identifies the ring station that is to copy the 
frame, and 1s always 6 bytes in length. For a transmit frame, the ad- 
dress identifies the station (PC) which has to copy the frame; for a 
receive, it contains the TIC address. X'40' at the beginning indicates 
that it 1s a locally-administered address. 


e Freld 3 - Source Address: 


The source address identifies the ring station that originated the 
frame. The first byte contains '‘'CO’', which indicates that it is a 
locally-administered address and that Routing Information is available. 


° Field 4 - Routing Information 


This field is optional and variable in length. The first two bytes 
contain Routing Control Information and the rest are up to 8 2-byte 
segment numbers. For NTRI the routing information is always padded to 
the full length, but the interpretation is done as shown in the trace 
example. 


e Field 5 - Routing Segments 
For an explanation, see Field 4 ~ Routing Information 

° Field 6 -— DSAP 
The Destination Service Access Point (DSAP) address field identifies 
the Service Access Point (SAP) for which the LLC Protocol Data Unit 
(LPDU) is intended. The SAP's are defined by IEEE 802.2; X'04¢" is the 


SNA Path Control default. X*'20° defines a LLC Sublayer management 
function. 
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° Field 7 - SSAP 


The Source Service Access Point (SSAP) address field identifies the 
Service Access Point (SAP) that originated the LPDU. The definitions 
are the same as for DSAP except that bit 7 is used to identify itt as 
either a command or response function. 


° Field 8 - Control Field (8 or 16 bits) 
The Control field of the LPDU can have three different formats. In the 
trace example it is an unnumbered PDU which is only 1 byte and used to 
provide additional control functions. 


Unnumbered Format Control Field Bits for Link Stations: 


0 12 3 4 5 6 7 Commands and Responses 
0 t 41 P JY 1 1 1 SABME Command 
0 1 0 P O90 O90 1 °1 DISC Command 
0 06 0 P O 1 1 21 SIM Command 
J: :0 <E:P7P b a: «62 XID Command/Response 
1 1 #1P/F GO O 1 1 TEST Command/Response 
0 1 1 F O O 1 121 UA Response 
0 0 0 F 1 212 1 =@21 DM Response 
1 0 060 F 0 1 1 =~21 FRMR Response 
Bits § and 7 identify unnumbered format. P/F indicates 


Command/Response. 
"BF' in the trace example represents an XID Command/Response. 


® Field 8 - XID Information Field | 
The XID information fields in Record 1 and 2 are IEEE 802.2 Standard. 
The XID field in Record 5 is SNA standard as described in the SHA Ar- 
chitecture Reference Summary (GA27-3136). In the trace, the ring sta- 


tion CPC 3270 Emulation) has sent an XID 'O0200017E0001' where '017' is 
the IDBLK and E0001 is the IDNUM. 


Publication References ahout trace interpretation 


~ Token-Ring Network Architecture Reference - SH19-6558 
(In some countries available from IBM Direct as p/n 6165877) 


~ SNA Architecture Reference Summary - GA27-3236 


Problem Determination 83 


8.1.3 New 3725 MOSS Functions 


The MOSS has been upgraded to support NTRI. New MOSS services permit the 
Moss user to look at the status of a particular Token-Ring. 


A new TIC dump support function is similar to the existing CSP dump support 
that exists today. Up to 4 TIC dumps can be stored on the diskette. Dumps 
can be requested by the operator, or occur automatically in case of an er- 
ror. If the operator asks for a CSP dump, it is deleted after being sent 
to the host. The dumps can be formatted with ACF/SSP V3R2. 


Several new diagnostics and alarms have been defined for NTRI. 
8.2 TRACES FOR TECHNICAL SUPPORT AND APPLICATION PROGRAMMING 


8.2.1 PC 3270 Emulation Trace Facility 


The PC 3270 Emulation Program provides a Host Line Trace facility. The start 
procedure for the trace is on the Request Tasks Panel, which can be invoked by 
pressing the Request key (€F10). To be able to get the Request Task Panel, the 
Communication task must first be started. Thus, problems occurring during in- 
itialization of the Communication task (Ce. g. Communication Check 510) cannot 
be traced by this trace facility and a Host Line trace is recommended 


For problems occurring after the Communication task has been started success~ 
fully, the 3270 Emulation trace 1s useful, because it produces much less output 
than a line trace. The Trace is also very useful during development of PC ap- 
plications using the Application Program Interface (API) which allow a PC ap- 
plication program to communicate with the host. 


During the start procedure of the trace, the user is asked for the name of the 
trace data set. When all trace information is captured, the trace must be turned 


off to close the data set properly. The trace data can then be formatted with 
the BASIC program TRACE.BAS to get an interpretable trace listing. 


8.2.2 APPC/PC Trace Facility 


The APPC/PC program has a built-in trace facility that can be enabled/disabled 
by an application program using the verb ‘'Trace’. This trace facility allows 
tracing of the flow at tuo possible levels: 

-~ The Application Program Interface level 

-~ The DLC Interface = message level 


The Application Program Interface trace shows the verb exchange between the 
Transaction Program and APPC/PC. 


The DLC Interface trace shows the flow of Path Information Units (PIU's) 
sent/received to or from another APPC/PC station or host. 


More information about the APPC/PC trace including an example can be found in 
the following Publications: 


- APPC7PC Programming Guide - p/n 61X3842 or - SX27-3757 
- Introduction to Programming for APPC/PC - GG24-3034 
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8.3 PD FOR NETWORK OPERATING (NETWORK CONTROL CENTER) 


8.3.] Network Management Products 


Host Products: 
- NetView 
Token-Ring Products: 
- TR Network Management program 


- TR Bridge Program 
- Netview/PC 


8.3.2 Operating - Token-Ring Network Error Scenario 


From the Network Operator's point of view, the recovery and restart activities 
are nearly the same as for the existing VTAM environment. New considerations 
are required for the TR Network components and management products. 


Example for a hard error on a TRN 


To produce a hard error we simulated a broken cable between MSAU's by using a 
special plug on the RI or RO side of the MSAU. 


e Indication on MOSS Console: 


- Hard error = on 

- Ring error recovery 
= TIC status is still = open 

- After calling 30 seconds, TIC status = frozen 


on 


e Indication on NetView Console CNPDA): 


- Alert message = Token-Ring failure 
Communication Controller and Physical Line Names 
- Detail = Hard error on Token-Ring which has not been recovered 


by the Beaconing process 
- Probable cause = Token-Ring failure. Contact Token-Ring Administrator 


° Indication on NetView Console (CNCCF): 


INOP received for Physical Line Code = 1 
Recovery in progress 
Unrecoverable error 
INOP received for Physical PU Code = 1 
After beaconing for 30 seconds . 
Termination of Logical Connections and INACT Physical Line 


e Indication on TR Network Manager 


- Status area changed immediately from NORMAL to BEACONING 
- The following messages appear at the Event Log Report: 
--> Ring not working: Data items displayed are reporting ring 
station, NAUN, ring number and error type. 
After beaconing for 30 seconds .... 
--> Ring recovery failed: Same information as above. 
--> Beep and Alert Message issued at the Network Manager 


° Indication at the network station (PC) 

~ PC 3270 Emulation: Communication Check 510 at bottom line 
After the Beaconing condition was solved by manual intervention, the Token-Ring 
was ready to run and the host connections (physical? could be reactivated by: 


- ACT LINE MOSS TIC status change to INITIALIZED 
- ACT PU MOSS TIC status change to OPEN 
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After the Logical connections were reactivated, host communication sessions 
could be started. 


If a PC where 3270 Emulation was running still indicated ‘Communication Check 
510’ status, a host-initiated connection (dial out) could be established by 
activating the Logical Unit. The host- initiated connection can be very impor- 
tant if 3174 Control Units are attached. 


If the Beaconing condition was recovered Cin our test by manual intervention) 
Within 30 seconds, the 3270 sessions were not deactivated and the end user could 
continue working at the same point at which he was interrupted. 


8.3.3 Allocation and Management of Logical Lines 


Logical Line Groups are defined in NCP; one possible way to define them is in 
a s@parate group for each TIC. The term ‘Virtual Line’ can also be used (e.g. 
for X.25) because the allocation of such a line is dynamically mapped onto a 
real physical resource. 


For an incoming call, a free virtual line from the top of the group will be 
allocated. For an outgoing call, the allocation will start from the bottom of 
that group. 


Separate Groups can be specified for DIAL=IN, =OUT and =INOUT. In our example 
we used only INOUT because we always wanted to have both possibilities for TR 
Network devices.’ 


The virtual lines and their names may be automatically generated by NDF. See 
Appendix (NCP Source - Output from NDF) about what is generated and which vir- 
tual line names are automatically defined Ce.g. J0Q00D001). | 


The allocated name of the virtual line can be necessary information for problem 
determination but VTAM display commands don't show which virtual line has been 
allocated for a specific connection. If NetView is installed, the name of the 
allocated virtual line will be displayed by using the Session Configuration 
function of the NLDM component. 


&8.% PD FOR TOKEN-RING NETWORK ADMINISTRATION 


The following publication is available for assistance in planning and executing 
Problem Determination procedures. 


- Token-Ring Network Problem Determination Guide 


se nemnsamatmattinaaaiiameanamunmmemnseanat 


SY¥27-0280 
This publication describes the following activities: 


Preparing for Problem Determination 

The Problem Determination Procedures 

Preparing a Diskette for Ring Diagnostic 

Using the Ring Diagnostic 

Ring Recovery Procedure for experienced user 
Testing a pair of MSAU'S with RI to RO Connection 


8.5 PD FOR LOCAL SUPPORT FUNCTION AND PC USERS 


The above publication can also be used by Local Support Functions or by expe- 
rienced users. 


Finally, the Network Station or its Software may be the reason for a problem. 
If the problem occurs during first-time use of a specific application, a defi- 
nition either in the host or in the network station may be the reason and 
technical support is normally required to solve such a problem. 
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If the problem occurs during ongoing work, some tests and activities can be 
executed by the Local Support Function or by the user before the help desk or 
technical support is called. If support has to be called, some informattion 
Should be available before calling. 


8.5.1 Sample Procedure 


Information required before starting or calling cuprort 


° Soft adapter address: If adapter address specified during 'TOKREUIL' 
opened with soft address. Note: TOKREUI does not open adapter. 


e Ring number or equivalent topologic information. 
° Type of failing workstation application 
° Error information: Symptom or message number 
Problem datermination activities 
Are there other stations with problems ? 
- If yes, call help desk Cif not already done) 
Test adapter and ring 
- Start the adapter diagnostic program 


- Start the ring diagnostic program if the Token-Ring Network 
Manager 15 not available 


Test Workstation 
- Are other (without host communication) applications running ? 
- Are other (with host communication) applications running ? 
- Check PC disk environment and directory allocations 
- Power off/on the PC: A RE-IPL CALT CTR BRK) of the PC may not be 
enough to recover from a workstation software problem because the 
storage above 512k may only be reset during power off/on. 


- Restart host communication application 


~ If not successful, call support. 


Problem Determination 93 


94 IBM 3725 NTRI Planning and Implementation 


9.0 APPENDIX A: PLANNING AND IMPLENENTATION - LIST OF TASKS 


Worksheets to record data required to implement the outcome of these planning 
tasks have been provided in Appendix B. 


9.1.1 Planning Tasks 


Identify user requirements 


Identify management requirements 


Define objectives 


Define applications with TRN communication 7/7 tuihat protocol 


Define applications with Host communication 7 what protocol 
Define start configuration 


Define target configuration 


Define backup and targets for performance & Availability 


Define changes for VTAM naming conventions 
Define conventions for local administered adapter addresses 


Define administration for adapter addresses 
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9.1.2 Ordering Tasks 


Configure 3725 (new or upgrade) with TRSS components 


If upgrade, verify that microcode of 3725 is Rel.4 level 


Order 3725 with TRSS components 
If upgrade, order MES for TRSS components (LAB-C's and TIC's) 


Upgrade 3725 storage if required 


ACF/HCP V4R2, ACF/SSP V3R2 and opt. NetView CNPDA V3R3) 
other products with dependencies on above products 

| Token-Ring Network components (MSAU's Cables,. 
Token-Ring Network SW products (NETBIOS, APPC/PC,... 
CIcS 1.7 if APPC/PC is planned to be used 
Host Products for Communication (File Transfer, DIS055) 


9.1.3 Preparation Tasks 


Develop test plan 
Define NTRI and TRN network resources 
Complete worksheets 


Complete administration sheets | Fd 


Get familiar with the new NDF function of ACF/SSP V3R2 


Create NCP source with new NTRI parameters 


ere 
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9.1.4 Installation Tasks - Token Ring Nethork 


Install TRN (test) environment (MSAU'S and cables) 


Install TRN adapter cards into workstations 


Install TR Network station software (€e.g.TOKREUIL) 


Attach TR Network stations to the ring 


Install Copt.) TRN Management Program 

Install TRN software for LAN communication (Ce.g.PC-LAN PGI) 
Test TRN software for LAN communication 

Get familiar with TRN, test facilities and management 


Install TRN software for host communication €Ce.g.APPC/PC) 


9.1.5 Installation Tasks - Host 


Install ACF/NCP VGR2, ACF/SSP V3R2 and NetView Cor NPDA V3R3) 
Install CICS 1.7 if APPC/PC is planned 


Generate ACF/NCP with NTRI and TRN resources = 


Attach Token Ring Network to 3725 


Load new NCP containing NTRI definitions 


Test 3725 MOSS functions for the TRSS 


Activate and test NTRI Physical Link 
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9.1.6 Implementation Tasks  - Token Ring Network and Host 


| Gat familiar with NTRI and TRN problem determination tools es 
Activate and test NTRI logical link | ae 
Prepare and test TRN software with host communication ft 


Get familiar with NTRI and TRN recovery and beaconing 


Test backup situations 


Test recovery situations 


Develop/customize End-user Interfaces/Procedures 


9.1.7 Post Installation Tasks 


[Adazeatebivan Token Ring Network Administration | __ 
[Establish adwiniatration of TRH station addresses | _ 
TAdaveatabiiah WRI and TRH menegenent SY 
[Adareatobiiah RTRI operating procedures Sd 
Skill transfer to help desk, operating, info center, ... nd 
[siti trenafer to application department end encmusers | _ 
TAavics for help desk, operating end info center | 
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9.1.8 Allocation of Functions 


Token-Ring Network Management needs, and the design or development of new in- 
tegrated applications for host-attached workstations require consideration of 
additional tasks. 


ENVIRONMENT INVOLVED FUNCTIONS 


Host and 372 


Token-Ring Network 


Host Netw. System Programmer 
Network Operation 
Network Administration 
Information Center 
Application Planning 
Application Development 


LAN Administration 
LAN Operation 


Network Station End-User 
Local Support Function 
Information Center 
Application Planning 


Application Development 


Help Desk 
Technical Support 
Administration 


Independent Functions 


Appendix A: Planning and Implementation - List of Tasks 99 


100 IBM 3725 NTRI Planning and Implementation 


10.0 APPENDIX B: PLANNING AND ADMINISTRATION WORKSHEETS 


10.1 LIST OF HARDWARE AND SOFTWARE PRODUCT 


Product summary — Software 


Product 


ACF/NCP V4R2 


ACF/SSP V3R2 Lo 
ACF/VTAM V3R1.1 = 
NetView Rel.l Ls 


IBM PC 3270 EMULATION V3 


APPC/PC Rel.1 
NETBIOS Rel.1 

PC LAN PROGRAM V1.1 
TRN MANAGER PROGRAM 
TRN BRIDGE PROGRAM 
PC DOS 3.2 


DISOSS, PS/PC — MVS, PC 


PROFS, PROFS/PC — VIIZSP, PC 
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Avail. Date 


101 


Product summary ~- Hardware 


8228 MULTI-STATION ACCESS UNIT 
82xx TRN REPEATERS 


PATCH CABLES for MSAU's 
CABLES for TRN STATIONS 
OTHER TRN EQUIPMENT _ 


Ordered 


Avail. Date 
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10.2 USER REQUEST AND STATION ADDRESS ADMINISTRATION - WORKSHEETS 


User Request — Worksheet 


STATION TYPE: 

STATION ADDRESS CHARD): 
APPLICATIONS REQUESTED: 
3270 EMULATION: 
APPC/PC: 


DEPARTMENT: 
BUILDING: 


ROOM NUMBER: TEL: 


COMMENTS: 


INFORMATION GIVEN BACK TO THE USER FOR SETUP WORKSTATION ENVIRONMENT 


ALLOCATED SOFT ADDRESS: 

ALLOCATED LU-NAME's: 

ALLOCATED RING NUMBER: 

ALLOCATED ID-VALUES: IDNUM's: 
ALLOCATED TIC NUMBER's ALTERN.: 


USER NAME ST.TYPE |[SUBA.|RING NR. {SOFT ADDRESS 


/ / / / / / / / / 4 


STATUS A = IN USE 

STATUS B = PREGENERATED BUT NOT USED 
STATUS C = PREGENERATION REQUESTED 
STATUS D = ... 


10.3 NETNORK TOPOLOGIES - WORKSHEET 
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RING NUMBER: i 


HOST ATTACH PORTS: 
BRIDGE NUMBERs: 


104 


BUILDING NUMBERs: 


BUILDING NUMBER: 


WIRING CLOSET NUMBER: 


rsau numer: reo [vata [-[-[-[-[ |] 
sav number: [rom || [rege |-[-[-| 


/ / / / / / / / / / / 


WIRING CLOSET NUMBER: 


BUILDING NUMBER: 
WIRING CLOSET NUMBER: 
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10.% NETWORK DEFINITION - WORKSHEET 


SOFT ADDRESS: | == ss COMMENTS: 
HARD ADDRESS: as 
LAN MNGR. ID: | 
STATION TYP: | sd 


ae PORT: ALTERNATE: , 


NCP NAME: 
PHYSICAL LINE NAME: 


PHYSICAL PU NAME: 


"TRMIDNT' NAMES: 


One Page per Token Ring Network Station. 
Used by Sysprog, LAN and Host Operation. 
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11.0 APPENDIX C: SAMPLE SOURCE FOR HCP, VTAM AND CICS 


11.1 NCP SOURCE - INPUT TO NDF 


HEH HEI HHH IK HH EK HK HK HK IK HK EI I EK EK HE EH HK HE EK HK HE EE KE KK EHH KKK HK KKK KKKXKK 900012000 
x NEWNAME = NTRINCP x x UNITSZ = 152 ¥ 00020003 
Bt ESS tts tatstatetstetetatatatatatatstatatetatatates % MAXBFRU = 34 x 00030000 
x x NETVIEW x MAXSUBA = 63 x 00040000 
¥% ACF/NCP V4R2 FOR 3725 % x SUBAREA = 13 * 00050003 
x (07/16/86) x x * 00060017 
HE HEHE HK HEH IE HK IE IE HE HE HE HE HE IE IE IE IE IE IE IK IE IE IE EH HK HK HE IE HK IEE IE EE IE HE DE DE HE HEE HEE HE HE HE HEE EEE EK KKK KRHMKKKXH 00070000 
* MODIFICATIONS: * 00080000 
x SEVERAL FOR NTRI SUPPORT x 00090004 
HE HK IK HE IE HE HE IE HE HE HEE HE EK HEH HK HK EM EK HE HE HK HK KH HK HK HH HK HK KH EEK HH HH HK EK KKK HMR KRKKKKKH 00160000 
x 01240000 
x LAB POSITION 3 (TYPE C ) 01250004 
x 01421004 
x|___ ae eae 01400004 
x|CINE|LINE I7F]| HEX |NCP LINE |TIC|T |SPEED| 01401004 
x|ADDR| ADDR | ADDR|NAME IPos|# | Pos. | 01402004 
x} | | ee ee 01403004 
*|-80 [1607161 |AO7Al1| L13080 | 5 |"1 | N2 4 MEG| 01410004 
x{ 81 [1627163 |A27A3| L13081 | 6/14 P2 ~~ (J|4 MEG; 01420004 
x | ae ea 01421004 
x — 01460004 
x 01510000 
HE HK HE HK IE HH IE HK EE HE HEE HE EE HE EE EK KEE KE KE EE EK EK EH EE KK EE KK KKK MRK KKM MKKRKHKKKN 01511008 
7 OPTIONS DEFINITION STATEMENT ¥ 01512008 
HE HK HEHE IE HE EK HK IE HE HEE HK IE HE EK HE HIE HE HK KE KE EE KK EE EK HK EE KK KK KEK EE EK EE EE KM MMR KRKKKXK 015270000 
NCPOPT OPTIONS NEWDEFN=YES >>> Required for NTRI 01520111 
HEHE HE HE HEE EK HK HE HE KE KK EE HK EK HK IK HK KE KK HK KK KK KKK KKK KKK RRRKXKKN GL5271008 
x PCCU'S MACRO SPECIFICATIONS ¥ 01530000 
HHH IK HHH IIH HHH HK HHI IH HHH IE IIE HII HK HH IIH HIE HH HHH IK HK HH HK KKH HK HK HK KHKKKKKKRKKKKKHK 9015460000 
PRINT NOGEN 01560000 
VTAMX PCCU. .... X01570000 
x nets 02380000 
ee ef SS SSeS ePeee eee sess eeese ess ee ees ese ses eee recess see se ses esesre ers ss Mime inininl, 
x BUILD MACRO SPECIFICATIONS ¥ 0240000 
HEH HE HE IE HK HE IE HK HE KK IE HEE EE EK HE IEE KE I IE IE EE HE EK HK EH HE EE EH EE KEK KK KK KKKEKKHNK 0741000 
NCPBUILD BUILD BFRS=(120), NCP BUFFER SIZE,EP FREE BUFFER X0242000 
BRANCH=500, BRANCH TRACE ENTRIES V3X0243000 
CA=(TYPE5-TPS, TYPES), CHANNEL ADAPTER TYPE V3X0244000 
CATRACE=(YES,100), CHANNEL ADAPTER TRACE V3X0245000 


CSMHDR=27F5C711C3F0405C40C8C4D9405C, 3270 CRITSIT HEADERX0246000 
CSMHDRC=40E3C5E7E3405C5C, 3270 CRITST HEADER EXTRA TEXT X0247000 
CSMSG=CIDICIESE2CIES5AG0E385819440F040, CRITSIT MESG X0248000 


Saoooonroc””oooqooqoc*}#;oooqooqoooqooqoa 


CSMSGC=6040C1D5E240828587A49954B, CRITST MESG EXTRA TEXT X0249000 
CWALL=26, MIN. BUFFERS BEFORE SLOWDOWN X0250000 
DELAY=(0.2,0.2), CA ATT.-DELAY FOR V3 BUILD X0251000 
DSABLTO=6.5, X0252000 
ENABLTO=6.5, IBM 386X REQUIRE 6.5 AS MINIMUM X0253000 
LOADLIB=NCPLOAD, LIB FOR LOAD MODULE X0254000 
LOCALTO=1.5, * NTRI ACK. TIMER FOR LOCAL TOKEN-RING X0254100 
QUALIFY=NCP43725, QUALIFIER FOR STAGE 2 DECK NAMES X0255000 
LTRACE=4, SIT FOR 4 LINES X0256000 
MAXSSCP=8, 8 SSCP'S CAN ACTIVATE THIS NCP X0257000 
MAXSUBA=63, ALLOW FOR UP TO 63 SUBAREAS X0258000 
MENSIZE=768, 3725 STORAGE SIZE 15 768K BYTES X0259000 
MODEL=3725, X02600000 
MXRLINE=2, * NTRI PHYSICAL CONNECRIONS X02600106 
MXVLINE=25, * NTRI LOGICAL CONNECTIONS X02600206 
TRANSFR=25, X02601000 
NCPCA=CACTIVE,ACTIVE), V3X02610000 
NEWHAME=N139F4M, HAME OF THIS LOAD MODULE V3X02620013 
NPA=YES, NPAX02630000 
NUMHSAS=6, 6 HOSTS MAY COMMUNICATE CONCURRENTLYX026490000 
REMOTTO=1.5, * NTRI ACK.TIMER FOR REMOTE TOKEN-RINGX02641006 
RESOEXT=64%, ALLOW 64 NAU'S TO BE REUSED X02650000 
SUBAREA=13, SUBAREA ADDRESS = 13 X02660000 
TIMEQUT=(€120,120), ANS BEGINS AFTER, FOR V3 IN BUILD X02670000 
TRACE=CYES, 64), 64 ADDRESS-TRACE ENTRIES X02680000 
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TYPGEN=NCP, NCP ONLY X02690000 
TYPSYS=05, OS GENERATION X02700000 
VERSTON=V4R2 NDF VERSION INDICATOR 02710011 
x Ba Od ie | ae eee ae tae; 02720000 
Se ART eee nen een nn ne men aore s 02730008 
x SYSCNTRL MACRO SPECIFICATIONS 02740008 


MUS ee ue I 02750008 
HCPSYSC SYSCNTRL OPTIONS=CBHSASSC, ENDCALL ,MODE,RCNTRL,RCOND,RECMD,RIMM,X02760008 


NAKLIM,SESSION, SSPAUSE,XMTLMT,STORDSP,DLRID, RDEVQ) 02770008 

3 3 HH HEH IE HE HEE IE HE HEE IIH HK HH HHH KI HEH HK HK HK HK HHH KK KKK KHKKKHKKHK 02780000 
x HOST MACRO SPECIFICATIONS * 02790000 
HH 3 HHH EE HK HE HEE KI HE EO IK HE HK OE IIE HE HH HK HHH HK KH HHH HK HK HK HH HK HHH HK KKK KKK KKK 02800000 
M01 HOST INBFRS=10, NCP BUFFERS ALLOCATION X02810000 
| MAXBFRU=34, UP TO 34 VTAM BUFFERS SHIPPED X02820000 
UNITSZ=152, VTAM IO BUFFERS SIZE X02830000 

BFRPAD=0, BUFFER PAD CMANDATORY FOR ACF) X02840000 

SUBAREA=(11) CHANNEL ATTACHED HOSTSA REL 3 02850000 

M02 HOST .... 023860000 
1071900000003 0003 I 03120000 
x DYNAMIC RECONFIGURATION POOL SPACE * 03130000 
HEHE HE IK HEHE 3 DE IE HE DK 3 DK DE IE EK KO HE HEE 3 3 HK EI HK HE EK HE HE HE HE DE HK HE HE HK IKK HM KKK KKKKKKKN 03140000 
¥ 03150000 
DRPOOLPU PUDRPOOL NUMBER=8, CAN ADD 8 PUS X03160000 
MAXLU=64 A MAX OF 64 LUS PER PU | 03170000 

* * 03180000 
DRPOOLLU LUDRPOOL NUMTYP1=10, RESERVE 10 LUS ON PU.T1 PUS | X03190000 
NUMTYP2=90 RESERVE 90 LUS ON PU.T2 PUS 03200000 

HEH HEHE HK HK OE HE DED IK OK DE 3 3 DK I HE HE DE HE 3K EO I HE EK IE EEK HK HE HEH HK HK CHEK KK HHH KK KKK KRKKKHK 03210000 
x PATH SPECIFICATIONS * 03220000 
x MARCH 25 1985 ¥ 03230000 
HH HEHE HEH HEH HH HH BH HE HE HHH IH HIE HI HO HI OH IIH IO I HI IIE OI HI OH HME 03240000 
PATH 2% 20 X03260000 


2.2.2.0 2.0, 0.0,0,2.0,0,0.0,0,.9,0.0,5,.0,0.0,.0,.0,0,0,0,0,0,0,0,0,0,0,5,0,.0,0,0,.0,0,0.0.0,.0,. 0.0.0.0, 0,.0,.0,0,.0,.0.0,0,0,0,0.0,5,5,0.2,0,5.5.0. 5, 0 west nnn! 
Aa SSE Aga ea a aaa 37351104 


x PHYSICAL GROUP FOR NTRI TIC 1 | 37351204 
SRM wR A 37351304 
EG13P00 GROUP ECLTYPE=PHYSICAL 37351406 
x 37351505 
EL13080 LINE ADDRESS=(80,FULL),PORTADD=0,LOCADD=400011301000, X37351617 

RCVBUFC=4095, X37351717 

MAXTSL=1108 37351817 
: 37351905 
EP13080 PU 37352004 
x | 37352105 
EU13080 LU ISTATUS=INACTIVE 37352206 
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DE HE HEHE DE HE HE DE IEE HE IE DE DEE HE HE IE DE HE IE HE EE DE DE DE IE IE DE DE EK IE DE EE HK DE IE IE OK DE IE DE IK DE DE EK DE DE EE EEE EE KRM KEXK 93735523504 


x PHYSICAL GROUP FOR NTRI TIC 2 ¥ 373524904 
HH HK HE HEHE HE HEHE HEHE DE DE 3 I IE HE HE DE HED HI HE HEE HE HE HK HE IE IE IE HEE HK I HK HE EE EK DK IE EE DEE OE HE DEE KK EHR HMR 37352504 
EG13P01 GROUP ECLTYPE=PHYSICAL 37352606 
% 37352705 
EL13081 LINE ADDRESS=(81,FULL),PORTADD=1,LOCADD=400011301001, X37352917 
RCVBUFC=4095, X37353017 

MAXTSL=1108 | 37353117 

x 37353205 
EP13081 PU 37353307 
% 37353405 
EU13081 LU ISTATUS=INACTIVE 37353507 
EK HIE IH HE HK HK IE HK HEHEHE I HE HEH HK HE HK HEI I HEHE HE EE OK IE HE HE HE I IE HK HE IE 3 HE HE DE IKE HE EK KH KHKKH 375535604 
x LOGICAL GROUP FOR NTRI TIC 1 * 37353704 
HEH HK HEHEHE HE HE 3 3 DEK HK HE HE HEE DE I IK HEHE HE IE HE IE OK I HK HE HE IE HEE BE HK DE I HEE EE HK HE DE DE HE HH IK HK HHH 37353804 
EG13L00 GROUP ECLTYPE=LOGICAL, X37353906 
AUTOGEN=20, X37354006 

CALL=INOUT, X37354104 

MAXLU=5, X37354215 

PHYPORT=0 37354306 

HH HE HIE I HEHEHE IE I HE IE IH HE HK HK IE HE EE I IE IK HE I HE HE HE IE 3 I DE IE HE EE DE HE DIE IE HE HE IE EK OKIE KKK HHKEKKKH 373554404 
x LOGICAL GROUP FOR NTRI TIC 2 * 37354514 
2 3 HH HE HE HE HE HEH IK HH HH IK HE HE HE HEH I EI IE HE HE HE DE HH IEE IE HE HE 3 I I IE HE IE IE HE I IE I IK IK IE IE EE EE HEH HEKKK 373554605 
EGI3L01 GROUP ECLTYPE=LOGICAL, X37354706 
AUTOGEN=5, X373543806 

CALL=INOUT, X373549904 

MAXLU=5, X37355015 

PHYPORT=1 37355106 

EH IE IE IE IE HE HE HEE 3H 3 HK HE IE IEE IK IE IE HEE DE DE IE IE IE IE HE HE IE IE DE 3 IE IK HE IE HE DE HH HK HE IE DE HE HE HE KI HK OE HE HEE HK EH KHKKH 37555204 
GENEND 37358012 

40280000 


HEHE HE HEH HEH HE HK HE HK HEHE IE HEE HE KE HEE HE IE HE HE EE DEK HE HE EEK DE HE HE DEE EE KE EE HE HEHE HE HE EE HEHE HK KKK KKK KKKKK 373555204 
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11.2 NCP SOURCE - OUTPUT FROM NDF 


NCPOPT OPTIONS NEWDEFN=YES 

ORE nee a nan entre 
* PCCU'S MACRO SPECIFICATIONS 

GSP GEORGE es 1 HH He 1H SO 
VTAMX PCCU .... 

HH HE EH IE HE HEH HEE IE I HE HE IE HE HE HEE HK HK HEHE HE HE I HE IE HEE EK DE IK HE DE DE HEE DE DE DE IE OK DK EE DE IE OE KK HE HE HE EEK KH KK 
x BUILD MACRO SPECIFICATIONS % 
HH HE IE HE I IE ICI HE HEE EI IK I IE IE I HE HE HE HE HE IK DE HE HEE IE DE I HE IE HE EEO HK I IK I I I HEE HE DE DE DK IE HE EE DE DK DK OK OE IE DE IE OE HE HEE 


01521008 
01530000 
01540000 


02390000 
02400000 
02410000 


NCPBUILD BUILD BFRS=(120),BRANCH=500,CA=(TYPE5-TPS, TYPES), CATRACE=(YES,* 
100), CSMHDR=27F5C711C3F0405C40C8C4D9405C, CSMHDRC=40E3C5SEX 
7E3405C5C,CSMSG=CIDICIESEZCIEI5A40E3385819440F040, CSMSGC=x 
6040C01D5E240828587A4954B,CWALL=26,DELAY=(0.2,0.2),DSABLTX 
0=6.5,ENABLTO=6.5,LOADLIB=NCPLOAD,_LOCALTO=1.5,QUALIFY=NCx 
P43725,LTRACE=4,MAXSSCP=8 ,MAXSUBA=63 ,MEMSIZE=768,MODEL=3% 
725,MXRLINE=2,MXVLINE=25, TRANSFR=25,NCPCA=CACTIVE, ACTIVE 
2, NEWNAME=NI39F4M,NPA=YES,NUMHSAS=6,REMOTTO=1.5,RESOEXT=x 
64,SUBAREA=13, TIMEOUT=(120,120), TRACE=(YES,64),TYPGEN=NCX 
P, TYPSYS= 05S,VERSTION= V4aRe2 

* VNCA=CTIOF.. 0... ee eee ) 02720000 

HEH HH HEHE EI IE HE HEE 3 IE I HK IE HE HEE EE DIE OK IE EN HK HE HE EEE OKO HK HK IE HK HE EE HE HK HHH KK KKK KKKKKH 02730008 

* SYSCNHTRL MACRO SPECIFICATIONS * 02740008 

DE 3 I IE DE IE IE IE IE II EK 3 I IE HE HE IE HE IE IE DE HE DE IE HE EH IE DEH EE OI I IE HEE HE DE OH OK HE HE KEK HK KKH 02750008 

NHCPSYSC SYSCNTRL OPTIONS=CBHSASSC,ENDCALL,MODE,RCNTRL,RCOND, RECMD, RIMM 
»NAKLIM, SESSION, SSPAUSE,XMTLMT,STORDSP, DLRID,RDEVQ) 

HEH HK HIE IE HEH HHH II I HE HE HE HEH IE HIE HK HE HEHE IE HK HEHE HEE EE IE IE IEEE HE IE HE HHH HK IIE HEH HK HHH KK 

x HOST MACRO SPECIFICATIONS % 

DE 3H HK HE I I HEHE HE I IE IE HE IE HE IE DE EK IE IE EE DE I OK I HE DE HEE I IE HK HE HE HE HE EH OK DEH IE HE IE DEK I I HE HEE EK HK 

MO1 HOST INBFRS=10,MAXBFRU=34,UNITSZ=152,BFRPAD=0,S5SUBAREA=(11) 

HEH HEH BE IE I HE HE HE HE HE EK IE I HK HE HK HEHE HH HK HE HE HEHE IE HEH HEH HK HK HIE HE HEHE HE HHH KE IIE HK KH EHH HHH 

* DYNAMIC RECONFIGURATION POOL SPACE % 

HH HE HE 3 IE IE IE HK HEHE HE EH OK I HK IE HE HE EE I HIE HEE I HK I HE IE HEE KK IE HEH IE IE HEE HE KH HE HE HEHE EHH 

* x 

DRPOOLPU PUDRPOOL NUMBER=8,MAXLU=64 

DRPOOLLU LUDRPOOL NUMTYP1=10,NUMTYP2=90 

BH HE HE HK DE DE 3 HEHE DE 3 DEK DE IE HK HE EE 3 DE DEE HK HE HEHE DE DE HK IK HE HEE EH HE I HE HE HE HE HE IE EE EK HK HE HE HEHE HK HH HE HEHEHE HHH KH 

x PATH SPECIFICATIONS % 

3 EH 9 9 IE 3 HE IE IE BE IE 3K 3K I IK IE DE OE HE EE 3 BE DE DK DK DE EE DE DE OK HE OE IE 3 3 DE I BK HE IE HE HEH 3 DE 3K I HK HEE HE DEK EH HE EHX 


3 3 3 3 3 3 3 3 DE DEK KK HK HE I I HK DED DE HE I HE IE HE HE HE HE HC HE DE DE DEK 3 3K I EK 3K DE HE HE HE HEE HE DE IE HEE EH 
3 3 36 3 HE HE 3H HE HE 3 3 HE EK HK HK HK DEH HE HE EH HK HK HEH I HE HEHE 3 DEE EH HE HE HEH EH HK KK HH HHI KK HH 
* PHYSICAL GROUP FOR WTRI TIC 1 % 
MELE LI TI iiitittt titi titi ti tit titi titti tit ittittiti titi ii titi 


03786000 
37351104 
37351204 
37351304 


EG13P00 GROUP ECLTYPE=PHYSICAL,TYPE=NCP,DIAL=NO,LNCTL=SDLC,LEVEL2=ECLNX 
ARL2, LEVEL3=ECLNARL3,LEVEL5=NCP, TIMER=(ECLNART1, , ECLNARTX 
2,ECLNART3),XIO=CECLNARXL, ECLNARXS, ECLNARXI, ECLNARXK) ,US* 
ERID=(5668854%,ECLRBDT,NORECNS) ,MAXPU=1,SPEED=9600,NPACOL* 
L=NO,PUTYPE=1,PUDR=NO,MAXLU=1,TI=NO 

3 37351505 

EL13080 LINE ADDRESS=(80,FULL),PORTADD=0, LOCADD=400011301000,RCVBUFC=4x 
095,MAXTSL=1108,UACB=C(XSP1AX,XSP1AR) 

* GENERATED BY ECL 

JOO0Q0D01S SERVICE 

% 


37351905 
FP13080 PU ADDR=Ol 
¥ 37352105 
EU13080 LU ISTATUS=INACTIVE,LOCADDR=0 
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YE 3H HE IE IE I IE IE IE I IE IE IE HK HE HE EK HE HEE I HEE HE IE HE HE HE HE EE OE IE EE EE OEE DE EE EK EK KRM KKKKKRNRN 3735523504 

as PHYSICAL GROUP FOR NTRI TIC 2 * 37352404 

HEHE 3 HE HE HE HEHE IE IE IE HE IE HE 3 3 IE IE HE HE HE IE IE HE HE HE HE HE IEE HE IE IE DE IE DE IE DE DEE IEE IE HE HK OE HE DE IE HE HE DE EK IE EK EEK MMMM 37552504 

EG13P01 GROUP ECLTYPE=PHYSICAL, TYPE=NCP, DIAL=NO,LNCTL=SDLC,LEVEL2=ECLNX 
ARL2, LEVEL3=ECLNARL3,LEVEL5=NCP, TIMER=CECLNART1,,ECLNARTX 
2,ECLNART3),XIO=CECLNARXL, ECLNARXS, ECLNARXI, ECLNARXK) ,US* 
ERID=(5668854,ECLRBDT,NORECMS) ,MAXPU=1,SPEED=9600,NPACOL* 
L=NO,PUTYPE=1,PUDR=NO,MAXLU=1,TI=NO 

* 37352705 

EL13081 LINE ADDRESS=(81,FULL),PORTADD=1,LOCADD=400011301001,RCVBUFC=4* 
095,MAXTSL=1108,UACB=(XSP2AX,X$P2AR) 

* GENERATED BY ECL 

JOO0OO0D02S SERVICE 

% 


37353205 
Scones PU ADDR=01 


37353405 

FU13081 LU ISTATUS=INACTIVE,LOCADDR=0 

HH HK EH HK IK I HII IIE III OO DO I 37353604 

x LOGICAL GROUP FOR NTRI TIC 1 * 37353704 

HEHEHE HEH IE HEHEHE IE HE BE HEHE IE HE HEI IE HI HE HE HE IE HE I I EEK EH IE HEH KH KK HK KKK MMKKKHKHK 37353804 

EG13L00 GROUP ECLTYPE=LOGICAL,AUTOGEN=20,CALL=INOUT,MAXLU=5,PHYPORT=0, 
TYPE=NCP,DIAL=YES,LNCTL=SDLC,LEVEL2-ECLNAVL2,LEVEL3=ECLNX 
AVL3,LEVEL5=NCP, TIMER=CECLNAVTL,,ECLNAVT2,ECLNAVT3) ,XIO=% 
CECLNAVXL,ECLNAVXS, ECLNAVXI,ECLNAVXK) ,USERID=(5668854, EC 
LVBDT,NORECMS),L_ INEADD=NONE,LINEAUT=YES,MAXPU=1,NPACOLL=* 
NO,PUTYPE=2,TI=NO 

* GENERATED BY ECL 

JO00D001 LINE UACB=XSLIA 

* GENERATED BY ECL 

JO00D002 PU 

* GENERATED BY ECL 

JO00D003 LINE UACB=XS$L2A 

* GENERATED BY ECL 

JO00D004 PU 

* GENERATED BY ECL 

ee LINE UACB=X$L3A 

-------- > UP TO XSL20A GENERATED BY ECL 

Sel Re eee ae ee eo ee eee 37354404 

x LOGICAL GROUP FOR NTRI TIC 2 * 37354514 

HEHE HIE IE HE HEHE I HE HE IE IE HE HE IE IE IE IE I IE IE IE I IEE I HEHEHE IE KE HE IEE IE HE HEHE IE IE KE MEH KKM KKH 379554605 

EG13L01 GROUP ECLTYPE=LOGICAL,AUTOGEN=5,CALL=INOUT,MAXLU=5,PHYPORT=1,TX 
YPE=NCP,DIAL=YES,LNCTL=SDLC,LEVEL2-ECLNAVL2,LEVEL3=ECLNA* 
VL3,LEVEL5=NCP, TIMER=CECLNAVT1,,ECLNAVT2,ECLNAVT3),XIO=CX 
ECLNAVXL,ECLNAVXS, ECLNAVXI, ECLNAVXK) ,USERID=(5668854, ECL 
VBDT,NORECIIS), LINEADD=NONE, LINEAUT=YES,MAXPU=1,NPACOLL=NX 
0,PUTYPE=2,TI=NO 

* GENERATED BY ECL 

JO00D029 LINE UACB=XSL21A 

* GENERATED BY ECL 

eevee PU 

ieahetestetetented > UP TO XSL25A GENERATED BY ECL 
ee eee ee ee ee 37355204 
GENEND INIT=ECLINIT, TMRTICK=ECLTICK 
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11.3 VTAM SWITCHED MAJOR NODE - DEFINITIONS FOR TRN DEVICES 


2.2. 4.0,.0,.0.0,0,.0,.0,0,.0,.0,5,.0,.0, 0.0.2. 0.0,0,0,0,0,5,.2.0,.0,0,0,0,0,0,9,9,0,.0,0,0,5,0,0,9,0,0,5,.0,9,5,.0,0,. 0.0.0, 0,0,0,0,0,0, 0.0.0.0, 0.0.0. 085 


x x 
% | VTAM SWITCHED MAJOR NODE FOR NTRI * 
x ¥ 
Ee State t ete tatskatatatetatetatetetatetetetatstatatatatetetetatatet tatatatetatetetstatat tetetatatetakatetatetate td tatekatatetatatatatas 
x | % 
E13SW VBUILD MAXGRP=5, REQUIRED 

MAXNO=12, REQUIRED 

TYPE=SWNET REQUIRED 
x % 
x x 
EE Sek b tS tebaketetetatatatetedetatat at tated chet tetatatetststetets te tet tata tetatatat te tetatatetet tatatatete ta tatatetetetetatatate: 
* PU, LU and PATH for PC 1 


HHH 3 HE HE I HH HE HE IE DE IE HE CK DE DE IE DDE OK IE IE HE HE BE DE IK HE HE HEE DE OE IE HH I HE HE EE HE EK DEK EEN EK HH 
* 

EE HE HE HHH EIEIO KEI IE HEHEHE HE HE KKK EH 

* PU, LU and PATH for PC 3270 EMUL. * 

HE HE 3 3 3 3 3H HK HK HEE HE HE IE OE I I IK HE HE IE HE HE HE EK HE KK 

xX 
E13PS01 PU ADDR=04, 
IDBLK=017, 
IDNUM=E0001, 
DISCNT=NO, 
MAXDATA=261, 
MAXOUT=1, 
MODETAB=MT327xX, 
PASSLIM=7, 
MAXPATH=2, 
VPACING=0, 
PUTYPE=2, 
SSCPFM=USSSCS, 
USSTAB=US327x, 
DLOGMOD=T3278M2 


DIALNO=0004400031301001, TO 3270 EMUL.PC 
GRPNM=EGI3L00, FROM TIC 1 
GID=1, 

PID=1 


DIALNO=0104400031301001, 
GRPNM=EGI3L01, | 

GID=1, 

PID=2, 

USE=NO 

LOCADDR=2 


COULD BE ANYTHING CNOT USED) 
PC 3270 EMULATION 
PC 3270 EMULATION 


NOT REQUIRED FOR SW LINES 


KK KK OK OK OK OK OK OK OK OK OK OK 


%X 
E13D0101 PATH 


K K &K 


Kx 
E13D0102 PATH TO 3270 EMUL.PC 


FROM TIC 2 


K K XK 


INITIALLY INACTIVE 
E13L0102 LU 
% ¥ 


2S 2 2.2. 2.0.0,0,0,9,8,0,.0,.0,5,.0,.0,0,.0.0.5,0,0,9,0,0, 5,0. 0,0,.0,5,.0,5,9,0,.0,0,5,9,5,0,0,0,0,5.0,5,.0,0,5,.0,0,0,5,0,9,.5,5,.0,0,5, 0.0.0, 0,5. 853 
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X00010480 
X00010490 
00010500 


00010640 
X00010830 
X00010840 
X00010850 

00010860 


X00010830 
X00010840 
X00010850 
X00010860 


00010650 


HHH VTAM — Cort. EK I HE EEE IE HE IE HE HE HEE DE OK OE IE OK KK HEI HE IE IE IEE IK I EEK KE 
HH 3 3 3 3K DEE HE EK IC IK I I KO OE OE HE IE HE I I HEE 

*¥ PU, LU and PATH for APPC/PC % 

HH 3 3 3 3 HE EE KK HE IE IEE HE IE IE EK DE OE OK HE EEE 

% x 
E13PS02 PU ADDR=04, 
IDBLK=050, 
IDNUM=A0001, 
DISCNT=NO, 
MAXDATA=261, 
MAXOUT=1, 
MODETAB=MTAPPC, 
PASSLIM=7, 
MAXPATH=2, 
VPACING=0, 
PUTYPE=2, 
SSCPFM=USSSCS5, 
USSTAB=US327xX, 
DLOGMOD=APPCNEGB 


DIALNO=0004900031301001, 
GRPNM=EG13L00, 

GID=1, 

PID=1 


COULD BE ANYTHING CNOT USED) 
FOR APPC/PC 
FOR APPC/PC 


NOT REQUIRED FOR SW LINES 


KK KK KK KK OK OK OK OK OK 


KX 
E13D0201 PATH TO APPC/PC PC 


FROM TIC 1 


KK K 


¥ 

E13D0202 PATH DIALNO=0104400031301001, 
GRPNM=EG13L01, 

GID=1, 

PID=2, 

USE=NO 


LOCADDR=3 


TO APPC/PC PC 
FROM TIC 2 


K K K 


INITIALLY INACTIVE 
* x 

E13L0203 LU 
% 

He HHH HE HE HE 3 3 3 3 3 IK IK IE IE OK DE IE IK IE IE IE IE HE DE DK DE IE DE IE OE HE HCE IEE IK DK 3 DE DE IK I DK DK DE IK IK DE KK EE EK EE KX 
% PU, LU and PATH for PC 2 

3 3 36 3 3 3 3 3 3 3 3 3 I DK IE IE IEE DE DE IE OE DE OE DE DE I DE OK OE EE 3 3 3 DE OK 3K OK DK DE KK OE IK DE DK DE IE OK ODE OK OK IK OE OE OK IEE IE EK EK 


x 
Sf 2 2.2.2.0. 0,. 0, 0,0.0,.0,0,0,5.0,0,0, 0, 0,0,0.0, 0,0, 0,5,5,0,0.0, 0,0, 0,. 0.045 


* PU, LU and PATH for PC 3270 EMUL. x 
3 3 HE 3 3 3 3 HE 3 IE I IE IE EI IIE IE I IE IE EE HEH 
% x 
EL3P503 PU 

PATH 

LU 
* x 
3 EE IEE IEEE DE I IE DE IE I IE HOE OE HE EE KH 
* PU, LU and PATH for APPC/PC % 
HH IE HEE IE IE HE DE IE DE OH HEE HE HEHE IEE HK HE HK HK HH 
% ¥ 
EL3PS04 PU 

PATH 


LU eer 
¥¥*XX End of VTAM Defimi ti ors 2% KK KKH HH HH EH EE IEE HE HE EE EK OE EEE EE EK EEX 


APPENDIX C: Sample Source for NCP, 


VTAM and CICS 


X00010540 
X00010550 
X00010560 
X00010570 
X00010580 
X00010580 
X00010580 
X00010580 
X00010590 
X00010610 
X00010620 
X00010630 
x 
00010640 
X00010830 
X00010840 
X00010850 
00010860 
X00010830 
X00010840 
X00010850 
X00010860 
00010650 
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11.4% CICS SOURCE - TCT FOR PC 3270 ENUL. AND APPC/PC 


2 2.2.0.0 2.2.0.0. 0.0.0, 0.0,0,0,.0,.5,0,0.0,0,0,5,0,5,.5,.5.0,0,0,0,0,0,0,5,0,5,0,0,0,0,0,0,5.8,5,0,5,0,8,0,9,0.8,5,9,0,9,0.0, 88.8 ett teeta 


x % 
* THE FOLLOWING ENTRIES DEFINE SOME PC SYSTEMS ON A 3725 TRN x 
* x 
x E201<=====-~-= >EL13L0102 LUT2 % 
x EO SG Sa m= >E13L0203 LUT6.2 x 
x EcU 26s see see—= >EL3L0302 LUT2 % 
* E6045 =-se2"==" >E13L0403 LUT6.2 3 
* JOAN MCCORMACK b 
x JULY 1986 x 
3 3 9 9K HE IE HE HE 3 3 DE HK 3 IE 3 DE 3K HE HE HE DE 3 3 IK DE HE 3 3 DK DEE HE DE DK IE HE DE DE DK DE HE DE DE DK DK DE HE HE DE 3 DK OK OK HE DE HE OK I HE 3 DE DK IEE IE DE EE 
% 


DFHTCT TYPE=TERMINAL, TRMIDNT=E201,PGESIZE=(24,80), 
BUFFER=256, 
TRMMODL=2, 
LOGNODE=EM3270, 
TRMTYPE=LUTYPE2, 
ACCMETH=VTAM, FEATURE=CUCTRAN), 
GMMNSG=YES,NETNAME=E13L0102, 
TCTUAL=64, TIOAL=(512,49096),RELREQ=C(YES,YES), 
TRMSTAT=TRANSCEIVE, CHNASSY=YES,RUSIZE=256 
DFHTCT TYPE=TERMINAL, TRMIDNT=E202,PGESIZE=(24,80), 
BUFFER=256, 
TRMMODL=2, 
LOGMODE=EM3270, 
TRMTYPE=LUTYPE2, 
PGESTAT=PAGE, 
ACCHETH=VTAM, FEATURE=CUCTRAN), 
GMISG=YES,NETNAME=E13L0302, 
TCTUAL=64%, TIOAL=(256,4096),RELREQ=(YES,YES), 
TRMSTAT=TRANSACTION, CHNASSY=YES,RUSIZE=256 
DFHTCT TYPE=SYSTEM, PC NTRI LAN 
TRMTYPE=LUTYPE62, (FOR DISSOS OR APPC) 
ACCMETH=VTAM, 
SYSIDNT=E603, 
NETNAME=EL3L0203, 
FEATURE=SINGLE, 
MODENAM=APPCNEGB, 
RUSIZE=256, 
BUFFER=256, 
TRASTAT=TRANSCEIVE 
DFHTCT TYPE=SYSTEM, PC WNTRI LAN 
TRMTYPE=LUTYPE62, (FOR DISSOS OR APPC) 
ACCMETH=VTAM, 
SYSIDNT=E604, 
NETNAME=E13L0403, 
FEATURE=SINGLE, 
MODENAM=APPCNEGB, 
RUSIZE=256, 
BUFFER=256, 
TRMSTAT=TRANSCEIVE 
% 
22.0.0. 2,2.0.0.0.0.0.0,.0. 0.0. 0.5,0,.0,0.5,0.9,.0,0,.0,. 5.5.0, 0,.0,5.0,.0, 9,0, 0,5.0,.0.0.0,0,0,0,0,.0.5,0.0,0,5,5,0,0,0,0,0,0,2,0,0.0,0,0,0,0,.0,5,5,: 
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02120 
02130000 
02140002 
02160002 
02150002 
02170002 
02240001 
022500 


0 
0 
X022800 
0 
0 
0 


X02420000 
X02430002 
X02440000 

02450000 
C02541000 
C02542000 
C02543000 
C02544002 
C02545003 
C02546000 
C02547000 
C02548000 
C02549000 

02549100 
C02549202 
C02549302 
C02549402 
C02549502 
C02549602 
C02549702 
C02549802 
C02549902 
C02550002 

02560002 


02260000 


12.1 TRACE EXAMPLE: 


12.0 APPENDIX D: TRACE EXAMPLES 


PC 3270 EMULATION - 


HOST INITIATED CALL 


ADVANCED COMMUNICATIONS FUNCTION 
TRACE ANALYSIS PROGRAM 


7 


7 


70002343 
78CC0303 


78CCO3CB 
70002343 


70001363 
G&ACOA000 
78CC1OCB 
GACOA000 
78CC10CB 


78000404 00404000 


F3000789 


70001006 
00000000 
0789A8 


8CC0404 


8CC0404 


DATE: 08:21:86 LINE TRACE DETAIL 
TIMESTAMP: 11.45.14 
ELEMNT ENTRY TYPE/Z 
NUMBER ID-COMMAND SCANNER STATE HEX 
HHH HHH IE IE I II HK HE HE HE HK EE DE HEE EE EE EEE EE EK KK 
* OPEN AND INITIALIZE THE TIC % 
HK HK HI IK IIE I IE IE KK IE IE IK HK DE IE HE OE HEE EE EE EE EE EEK 
000007 NTRI LINE OPEN 4007767C 0009548C 0007767E 
000003 NTRI LINE OPEN 4009440C 00 038000 00077856 
000004 NTRI IOH GA952000 4¢ACO0AD00 
000005 NTRI LINE SCB CLEAR 4009440C 00044000 000777C6 
000006 NTRI IOH GAC09880 4A952000 GACOADND 
000007 NTRI LINE OPEN G4007767C 00095%48C O007767E 
000008 NTRI IOH GACQN9880 4A952000 GACOANND 
000009 NTRI LINE OPEN 400776A0 00095594 000776A2 
000010 NTRI IOH GAC08680 4AC08880 44952000 
000011 NTRI LINE SCB CLEAR 4009440C 00044000 O000777EA 
000012 NTRI IOH GAA52000 4AC08880 4A952000 
000013 NTRI LINE SCB CLEAR 4009%440C 00044000 0007780E 
000014 NTRI IOH GAA52000 4AC08180 4AC0AN00 
HHH HH HI IIH HEH HE IE IE EH EK EH EE EE EEE MK MMH 
* TRANSMIT AND RECEIVE TEST FRAME x 
HE KH HEH HE HK I HK HE HK HK KEE HK HK HK EK EE EK EEK KEK KEKE 
000015 NTRI LINE TRANSMIT GOO9AD3C 00044000 C107780E 
00313000 40000113 00000004 
000016 NTRI IOH GACOA400 
000017 NTRI LINE RECEIVE 40077778 00099710 ClO7777A 
: 01130000 40000031 30000000 
00000000 00000000 0401F300 
000018 NTRI IOH GAC08280 4AC08180 4ACOA00D 
HH HK HHH HHH HEH IE HK HE HEE IE IE HE HK KE HK HE KE EK HK HE KOE 
* TRANSMIT AND RECEIVE XID % 
KH KK HH HK HH KH HK HK HH HK HK KM HHH KI HH HK OEE KKK 
000019 NTRI LINE TRANSMIT GO009AD3SC 00044000 00077832 
00313000 40000113 00000404 BF 
000020 NTRI IOH G4AC0A400 
000021 NTRI LINE RECEIVE 4007779C 0009989C OQO007779E 
01130000 40000031 30000000 
00000000 00000000 O405BF02 
000022 NTRI IOH G4AC08280 4AC08180 4ACOA00D 
HK HK HK HK IK HK III KH IK IE IIE KE HEE EE EEE EK OE KE MK MK RX 
* TRANSMIT SABME . is 
HHH HK HK HH II HK IH HK KEI HK HH HK KEK EK EK KK 
000023 NTRI LINE TRANSMIT 4009AD3C 00044000 00077856 
00313000 40000113 00000404 7F 
000024 NTRI IOH GAC0A400 
tt. 2.0.0. 8,8,.0, 0,0. 010, 0,0,. 0.0.9, 0,8,0,9,0, 0,0, 00,0, 0.0,. 0,0, 0,5,0,0,0,0,5: 
* RECEIVE UA % 
HH HH HIE HK HH HE HEHE HE IE IE IE EK HE EE HEE KK EE EEE EEE EK 
000025 NTRI LINE RECEIVE 400775C8 O0099A28 000775CA 
01130000 40000031 30000000 
00000000 00000000 040573 
000026 NTRI IOH GAC08280 ¢AC08180 4AC0A000 
HE IK IK HK HEH HE IE IE IE HK HE HK HK IE IE HE HK EEK HE EK EE HE DEE KE DE EE EEE 
* TRANSMIT AND RECEIVE RR x 
HK KK HH HK HII HK HK HK HHH HHH HK HK EK KEK KK EK EK 
000027 NTRI LINE TRANSMIT GO009AD3C 00044000 000777C6 
00313000 40000113 00000404 
000028 NTRI IOH G4ACOA400 
000029 NTRI LINE RECEIVE G400775EC O00099BB4 000775EE 
01130000 40000031 30000000 
00000000 00000000 04050101 
000030 NTRI IOH G4AC08280 4AC08180 4AC0A000 
St 2.2 2.0.2, 8.0, 0.0,0,0,0,0,5,0,5.0,0,0,5,0, 0,5, 0,0,0,8,0,0,9,0,0,0,5, 0003 
* TRANSMIT ACT PU * 


A8 
1040400 
0000000 


00404000 


00404000 


00404000 


10404000 
00000000 
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0 
0 


115 


000031 


000032 


000033 


000034 


000035 


000036 


000037 
000038 


000039 


000040 


000041 


000042 


000043 


000044 


000045 
000046 


000047 


000048 


000049 
000050 


000051 
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ttt 2.2.0. £.0,. 0.0.0. 0,0,0,0,. 0.0.0. 0,0,0,0,. 0.0.0.0. 0.0,.0.0,.0,5, 0.0.0.0 2,2, 


NTRI LINE TRANSMIT GOOSAD3C 00044000 OO0777EA 
| 00313000 40000113 00000404 
6B800011 02010500 000000 
NTRI IOH GAC0A400 
HEHE HH HE IEE IE IE IE IE IE HE HEHE IE HE IE HEE IE IE HE HE IE DEE EEE EE SE EE 
* RECEIVE RR % 
HH HE HEI II HIE HE HE DE IE IE EE HEE HEE HE DE DE HEE EI IKI 
NTRI LINE 40077610 00099D40 00077612 
01130000 40000031 30000000 
00000000 00000000 04050102 
NTRI IOH GAC08280 GACOAG00 
HHH HEH HH HE IE HE HED IEE HE IE DE OE EE EEE IE IH 
* RECEIVE ACT PU RESPONSE * 
HEHEHE HE EE HIE HE EEE IE IE EE IEE IK EK 
NTRI LINE C0077634 OQOO99ECC 00077636 
01130000 40000031 30000000 
00000000 00000000 04040002 
00111140 40404040 4040 
NTRI IOH GAC08280 GAC08180 4GACOADND 
HE HEHEHE HEHE IE HE HE EEE IEE EE HE EE OE 
* TRANSMIT RR % 
HEHEHE HH IIE IEE HEHE HEE EE EE EI 
NTRI LINE GO009AD3C 00044000 O007780E 
00313000 40000113 00000405 
NTRI IOH GAC08180 GACOA000 
HEHEHE HE DE HEE HE IE IE EEE HE EK DEH EE DEE IE IE EE EI EEE CE 
* TRANSMIT ACT LU % 
PEELE LE TEE T 
NTRI LINE GOO09AD3C 00044000 00077832 
00313000 40000113 00000404 
6B80000D 0201 
NTRI IOH G@ACO0A400 
HH HEH HEHE HEHEHE IEE HE HIE IE EEE I KH IEEE KH 
* RECEIVE RR 4 
HE HEHE HK HEHE HEHE IE HE IE HE HE IE HE IK HE EE HE IE IK IE IEE EE IEEE EI IH 
NTRI LINE 40077658 O009A058 O0007765A 
01130000 40000031 30000000 
00000000 00000000 04050104 
NTRI IOH GAC08280 GAC0AG90 
PELELSLESE CECE ETT TEE 
* RECEIVE ACT LU RESPONSE x 
PELERDESLELEE ETT TTT TET TTT 
NTRI LINE G007767C OOOSJALE4 OO007767E 
01130000 40000031 30000000 
00000000 00000000 04040204 
000D0101 00850000 O00C 
NTRI IOH GAC08280 GAC08180 GACOADOD 
HH HEHE HEHE HEHE HE IE HE DE DE DEE HE IEEE EE I OE KI K KKK 
* TRANSMIT RR x 
3 HEHE HEH 3 HE DEE I IE HE HEHE DE HE DE IE DEE IE DE IE IEE EE EK IK 
NTRI LINE G009AD3C 00044000 00077856 
00313000 40000113 00000405 
NTRI IOH GACOAG00 
HEHEHE HE DE IESE IE HE IE IE HEE I DEE IE EE DE DEE IE EEE EEE IE IEEE 
* RECEIVE NOTIFY x 
HH HEH HIE HEH HIE DE IE DE IE DE IEE IIE IK EE EE EK EHH 
NTRI LINE 400776A0 0009A370 000776A2 
01130000 40000031 30000000 
00000000 OO000000 04040404 
00810620 0C060300 0100 
NTRI IOH GAC08280 GAC08180 GACOANDDD 
HE HEH HEHEHE HEI HE HEHE IE IE DE HEE HE HE DEE IE IEEE IE EE EE KH 
* TRANSMIT RR x 
HE HK HEHEHE IEE IE IE HE EE IEE IE HE HE IE EEE KEK 
HTRI LINE GO09AD3C 00044000 000777C6 
00313000 40000113 00000405 
HTRI IOH GAC08180 GACOA0D0NN 
HE HEHE HE IE HE HEE IE IEEE IE HE IEE I EE IE HEE EE IK KK 
* TRANSMIT MSG 10 % 
HHI HK HIE HH HH IH HK KK KKK KK 
NTRI LINE GOO9AD3C 00044000 OO0777EA 
00313000 40000113 00000404 
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78CC0404 
00002D00 


78000404 
0102 


78000404 
02022D00 


78CC0404 
0104 


780004904 
0106 


78CC0404 
04062800 


00404000 
00000D07 
OB 


10404000 
00000000 


10404000 
00000000 
0D07EB80 


00404000 


00404000 
02000D08 


10404 
00000 


fam BE ome 
oo 
om] 


10404000 
00000000 
ODO8EB80 


00404000 


oor 
Qoo 
Qo 
oQoo 
oon 
woo 
oae 
ooo 


00404000 


00404 
02000 


oo 
oo 
hm © 


03800040 15D4E2C7 FIFO040D4 

000052 NTRI IOH GACOA400 

000053 NTRI LINE RECEIVE G400776C4 OOO9ASFC 000776C6 70001006 10404000 
01130000 40000031 30000000 00000000 00000000 
00000000 00000000 04050106 
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13.0 APPENDIX E: SANPLE SOURCES FOR APPC/PC 


13.1 APPC/PC - APPLICATION SUBSYSTEM EXAMPLE 


2.2.2. 2.0. 0.0,.0.0.0.0.2.0,.0,.0,0.0.2,0,0,.0,.0,.0,5,0,0,0,0,0,0,0,0,5,9,5,0,.0, 0.0, 0,0,8,0, 0, 0,0, 0,0, 0,0,0,0, 0.0.0 8.8 88 Se eee e eee 
Het 2 2.2.8, ¢,0,0,0,9,.0,. 0,0, 0.0.2.0. 2,0, 0.2,0,.0,0,5,0,0,0,.0.0,5.0,0,0,0,5,0,.0.0,0,0,0,5,0,5,0,5,0,0,0,0,0,0,0,0,0,5,0,8,0,. 8.0.0.0. 0 ee, 


7x % 
3% APPLICATION SUBSYSTEM - 4 
3% % 
;* Purpose This is the application subsystem for the CICS TEST ¥ 
> % % 
5 HEH IIE KK KK HK EE HK EK HE EK EE HK KE KE EE EK EE IK EK EK KE EE EEE EK EE KE KKK KKK HK KKK KH 
>* Stack Segment - STACKSEG x 


2.8. 0.0,0,.0,.0.2,5,0.0,.0,.0,.0, 5, 0.0.0, 0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0, 0.0, 5,0,8.0,0,0,0,0,5,0,0,0,0,0,0,0,9,8,0,0,0,0,0,8,0. 0.0.5.0. .8 8, 


>* Note The size of the stack 1s used in step 5. 
stackseg segment para stack 'stack' 
64 dup ("Stack...™) 
stackseg ends 
5 HEH IE IE IE IE I HE HEHE IE IE IE HE IE HEHE HEH HE EE IE HEHEHE I HEE IE IE IEE FE IE IE IE HE IE IEE HEE HE EE DE EE LE IE EE EE EK KKM HH 
>* Data Structure Definitions % 


9 HI HHH HK HK HE HE HK DE HE HE EK HE HE KE HK KE EE HK HE HK EE EK KK EK DE KE EE KK EE EK KE KK KK HK HHH HM HK KK 
° x 

of 

;* Include the necessary APPC/PC verb structure definitions. 


3% 

include attachpu.str > ATTACH _PU Data Structure 
include attachlu.str >; ATTACH_LU Data Structure 
include part_lu.str > PARTNER_LU Data Structure 
include mode.str >; MODE Data Structure 
include act_dlc.str > ACTIVATE_DLC Data Structure 
include cnos.str > CHOS Data Structure 
include convert.str > CONVERT Data Structure 
include getalloc.str >; GET_ALLOCATE Data Structure 
include tp_valid.str > TP_VALID Data Structure 
include createtp.str 3 CREATE_TP Data Structure 
include tp_init.str >; TP_INITIATE Data Structure 
include detachlu.str >; DETACH_LU Data Structure 
include detachpu.str >; DETACH_PU Data Structure 
include tp_start.str > TP_STARTED Data Structure 
5% 


; x Parameter Block structure used to Load and Execute the Transaction 
>* Program 


a 

parm_blk struc > Parameter Block (see step 6) 
env_addr dw 0 ; Segment address of environment 
parm_ptr dd 0 >; Parameter string address 
feb5c_ptr dd 0 ; FCB address for offset 5Ch 
fcb_6c_ptr dd 0 >; FCB address for offset 6Ch 
parm_blk ends 

3% 


>* Structure for information pertaining to Transaction Programs known 
3% to the Application Subsystem. 
3% The structure is 108 bytes in length. 


known_tp struc > Structure for Known TP's 

tpname_len db 0 > LengthCTP_NAME) 

tpname db 

luname db ’ : > LU_NAME 

luid dq 0 > LU_ID 

psid dq 0 >; PS_ID 

resource dd 0 ; Resource 

fileid db . : ; Fileid of program to be executed 
db 0 >; Term. char for ASCIIZ string 

known_tp ends 

3% 

;* Structure for TP name entered by user from keyboard (DOS Function QAh) 

kbd_ input struc 

maxlen db 0 >; Maximum input length 
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actlen db 
tpn db 


kbd_input ends 
° x 
x Macro used to 


0 
65 dup (' *') ; 
' v 


invoke APPC/PC 


;* Note AX & DX are modified. 


° x& 
? 
appc_pc macro 
: 1fnb 
mov 


endif 
mov 
int 
endm 


3 


request,ctrl_ blk 
<ctrl_blk> 


dx,offset ctrl_blk ; 


ah, request ; 
appc_int ; 


Actual input length 
TP Name 
Delimiter 


DS:DS points to APPC/PC control 


block 


APPC/PC Function Request 
APPC/PC Interrupt Request 


3;* Macro to display a message on the screen. 
>* Notes AX & DX are modified. 


>% The end-of-string (referenced by DS:DS) is terminated. by 'S' 
3% 
display macro msg | 
mov dx,offset msg ; DS:DS points to message 
mov ah,9 ; DOS function request number 
int dos_int ; Have DOS display the message 
endm 
3% 
kbinp macro 
mov dx,offset kbuf ; DS:DS points to message 
mov ah,Qah ; DOS function request number 
int dos_int ; Have DOS display the message 
endm 


;*% Macro to display a single character 


>* Note AX & DX are modified. 


ox 

5 

putchar macro 
mov 
mov 
int 
endm 

> xX 


char 

dl,char ; 
ah,2 > 
dos_int ; 


>* Note CX & SI are modified. 


-% 

3 

printre macro 
lea 
mov 
call 
endm 

3% 


rc,type 

Ssi,rc | ; 
cl,type ; 
prt_re ; 


;* Note CX, DI & SI are modified. 


copystr macro 
cld 
lea 
lea 
mov 
rep movsb 


endm 
copystrl macro 
cld 
lea 
push 
mov 
lea 
pop 
mov 
rep movsb 


endm 
copystr2 macro 


source,target,length 


si,source 
di,target 
cx, length 


we we we We we 


source,target,length 
> 


s1,source ; 
bx . 

bx,es: tpn_offset 
di,target ; 
bx | 

cx,length ; 


source,target,length 


on the screen. 


DL = character to be displayed 


DOS function request number 
Have DOS display the message 


- Macro to set up registers for a CALL to procedure PRT_RC 


DS: SI -> Return Code 


CL indicates kind of return code 


Display the Return code 


;* Macro to copy a sequence of characters from source to target. 


Clear the direction flag 

DS: SI = Address of source 
ES: DI = Address of target 
CX = Length Cbytes) 

Copy CX bytes from source to 
target 


Clear the direction flag 
DS:SI = Address of source 


ES:DI = Address of target 
CX = Length Cbytes) 


Copy CX bytes from source to 
target 
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cld ; Clear the direction flag 


push bx 

mov bx,tpn_offset 

lea s1,source ; DS:SI = Address of source 

pop bx 

lea di,target > ES:DI = Address of target 

mov cx,length >; CX = Length Cbytes) 

rep movsb > Copy CX bytes from source to 
>; target 

endm 
5 HEHE IE HEHEHE HEHE HE IE DE IE IE IE IE IE IEE IE IE IE IE IE EE EE HEE HE HE EEE IE IE HEE HE HE HEE HE EEK KM KK 
>* BEGIN OF DATA SEGMENT - DATASEG * 
HES 2.2.0.2, 0,. 8.0.2, 0.0.0.8. 0,.0,8, 5,0, 0.0.0.0, 0.0, 5,0, 0, 0.0.0, 5,0, 0, 0,0, 8.5, 8,0, 2,0,.5,0,0, 0,8, 5, 0,8, 0,5,0,0,0,5, 8,0, 0,0, 5, 0.5, 0,5. 0, 9,98,8)3 

eL1VSt 
dataseg segment para public 'data' 


HES .0 2.2.0.2, 8,0, 8,5, 0,. 0.8.0, 0, 8,5, 0. 0,0, 0, 0, 8,0,9, 8,8 8.8st tata ta tatatatatatatatateketatatetstatatatetetstetatatatatstataketetstetatatateta: 
>* This data segment supports the ITRN adapter. 


e e we 


we Ww we we we we 
K KK KK K OK OK 


The Local LU E13L0203 has been defined as having a partner LU 
located at the Ring Station address 400001130000. This definition 
is contained in trn_plu_aa. 

The other definition that can be of interest is the indication of 
Adapter Number (Primary or Secondary), set to Primary (0) as 
contained in adapt_id. 


KK KK KK OK OK OK 
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3% Allocate and initialize the control block data structures. 
TESTE e TESS Fe seb tl dtitidtitsdedsdidststetstetstotetetetetetstadatetitetstotstetotetatetetatatehstahetstetatatatete: 


>% 
att_pu_cb 
att_lu_cb 
b1 
pnl_lu_cb 
b2 

mode_cb 
ltot 

lmod 
actdlce_cb 
cnos_cb 
conve 
det_lu_cb 
det_pu_cb 
getall_cb 
tp_vald_cb 
tp_strt_cb 


ee 
>* Equates 


q 
remote _tp 
bad_tp 


Hea 


attachpu <,»,,»5»,,»'NETWORK', *EL3PSO01'> 3; ATTACH_PU 
attachlu <,,,,,'EL3L0203',,3,2,05,5,/1,1,5,,lto0t>  ; ATTACH_LU 
| 23456 78 9 0 1234 5 678 
equ $ 
part_lu <ltot,,'CICS11',,1,,'ITRN’,adapt_id,6,,lmod> 
23 45 67 8 9 01 

equ $ 
mode <,"APPCNEGB’,256,256,1,2> 

2 3 4 5 6 
equ $-bl 
equ $-b2 
act_dle <,,,,'ITRN*,adapt_id> > ACTIVATE_DLC 
cnos <yorerere CICS11"', 'APPCNEGB’,,1,1,0,1,0> ; CNOS 

2345678 9 01234 5 
convert <> 3; CONVERT 
detachlu <,,,,,1> > DETACH_LU (Csoft) 
detachpu <> >; DETACH_PU 
getalloc <> > GET_ALLOCATE 
tp_valid <> >; TP_VALID 
tp_start <> > TP_STARTED 


used by the application subsystem 


equ 0 ; & Byte Return Code Indicator 
equ 1 >; 6 Byte Return Code Indicator 
equ 0 >; Adapter ID number 

equ 13 >; Carriage Return 

equ 10 ; Line-Feed 

equ 2lh ; DOS Interrupt Request 
equ 68h >; APPC/PC Interrupt Request 
equ 39 >; For imbedded quotes 

equ O0000001b ; Remote TP mask 

equ 00000010b >; Bad TP mask 


;* Messages displayed by application subsystem. 


He 


SNAmissing 
rc_equals 
xlate_msg 
att_pu_msg 
det_pu_msg 
att_lu_msg 
det_lu_msg 
actdlc_msg 
cnos_msg 
cnos_limit 
trmsg 
setblk_err 
await_msg 


alloc_msg 
bad_alloc 
acceptmsg 
rejectmsg 
exe_tp_msg 
bad_tp_msg 
fnd_tp_msg 


3% 


db "APPC/PC is not loaded.$' 

db "Return Code = $!° 

db "Translating names from ASCII to EBCDIC.’*,CR,LF,'$'" 
db "Attaching the PU.',CR,LF,'S$' 

db "Detaching the PU.',CR,LF,'$' 

db "Attaching the LU.',CR,LF,'S' 

db *Detaching the LU.',CR,LF,'S$' 

db YActivating the DLC.',CR,LF,'$! 

db "CNOS - Setting Session Limit to * 

db 71.°,CR,LF;'S* 

db "Enable Traces ? t;'S* 

db "DOS SETBLOCK failed.$' 

db "Awaiting incoming ALLOCATE....°,CR,LF 

db "Ent.name of local TP (',q,'z',q,' to and) *,CR,LF,'$" 
db "Incoming ALLOCATE received.',CR,LF,'S' 

db "GET_ALLOCATE error.',CR,LF,'$' 

db "Incoming ALLOCATE accepted.',CR,LF,'S' 

db "Incoming ALLOCATE rejected.",CR,LF,'$' 

db "Load and execute the Transaction Program.',CR,LF,'S$' 
db "Unrecognized TP name',CR,LF,'$'* 

db "TP name found in table',CR,LF,'$' 


>* Allocate memory for subsystem data structures, and values. 


3% 
tp_info 
tp_end 


in_area 
offset_env 
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known_tp <7,'LOCALTP',*E13L0203',,,,'DMPC.EXE',> 
known_tp <7,'DEBUGOL',*E13L0203',,,,'debug.com',> 


db 0 . ; Table delimiter 
kbd_input <65,,,'$'> ; Max length 65 allows 64 + CR 
equ es: ¢2Ch| ; Offset of Env. Address in PSP 
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parmstr db 0 Null Parameter string-see stp 6 


fcb db 16 dup(0) >; Null FCB entry for TP-see stp 6 
tp_parmblk parm_blk <,parmstr,fcb,fcb> ; TP parameter block 
prefix dw 0 >; Program Segm. Prefix (PSP) Addr. 
Signature db TARPPCZEC* ; APPC/PC signature 
trn_plu_aa db 40h >; Partner LU TRN adapter address 
db 00h 
db Oih 
db l3h 
db 00h 
db 00h 
tpn_offset dw 0 >; Pointer to tp_info entry 
as_ind db 0 ; Indicator bits (see equates) 
kbuf db 04h 
db 0 
tflg db ' ’ >;keyboard input 
trinfo dd 0 
db 20h 
db 20h 
du 0000h 
dd 0 
dd 0 
dataseg ends 
He Se 2 2 eS 22S 2 2 SS oS SS So oS SSS e282 ESE SS, 08, 5,0, 5,0, 5,8,5,5 5.5.8. tatatetatatatatatetatatatatitetatetatatstatete 
>* END OF DATA SEGMENT - DATASEG % 


> HHH I HH HE HK HE HEE EK HE HE HK EE HE HE HE DE EK EK HK HE EI IK HE HE HE HK EE KE EEK HK HEH IE IK EE HE DE DE HK EE EH HK HHH HM RK KKM KM 
es 

Pd 

5 HE HIE IE HK EK HEE EE HE HK EEK EEE KK KK EE EK KK EK EEK HEE IEE EK EE EO OK HE EK KE KH KK KR 


>* Code Segment - CODESEG * 
5 HHI IEE IE IE IE HE KK HE I IE HE IE I HE IKE IE HEI IE EI IE IE IEE HEE IE IE IE IE IE HE IEE HEE EE EEK KH KK HH HK 
-Xlist 
codeseg segment para public ‘code’ 
assume cs: codeseg,ss: stackseg,ds: dataseg 
3% 
, 
>* Procedure to convert the binary value in AL into 2 hexadecimal 
3% characters, and display each of them on the screen. 
>*¥ Note AX, CX & DX are modified. 
HE 
b2x proc near ; Local to the Application Subsys. 
xor ah,ah ; Clear out AH 
push ax >; Save the initial value of AL 
mov cl,4 ; CL = shift count Cbit pos.) 
shr ax,cl >; Shift low order bits out of AX 
call b2x_digit > Convert the digit & display it 
pop ax >; Restore tnitial value of AL 
and al,OFh >; Mask off low order bits 
b2x_digit: cmp al,9 > Is it a normal decimal digit? 
jle b2x_dec ; Yes | 
add aly thio rot! ; No: = conv... P0..15: =o> *A*. 1° EF’ 
b2x_dec: add al,’0’ > Change binary value into char. 
putchar al > Display the character 
ret >; Return 
b2x endp 


Procedure to display the return code on the screen. 


Input DS:SI -> Return Code value to be displayed 
CL = RC_4 implies ¢ Byte Return Code 
CL <> RC_4 implies 6 Byte Cprimary/secondary) Return Code 


Note AX, CX, DX & SI are modified. 


‘s we We we We Ws We We We 
KK KK OK OK OK OK OK 


prt_re proc near 
push cx > Save Return Code Type indicator 
display re_equals > Display Return Code message 
cld >; Insure Auto-increment on Loads 
lodsb >; AL = First byte of RC 
call b2x > Convert and Display it 
lodsb >; AL = end byte of RC 
call b2x >; Convert and Display it 
pop cx >; Restore Return Code Type ind. 


APPENDIX E: Sample Sources for APPC/PC 


123 


cmp cl,RC_4 
je last _ 2 re 
putchar ' '. 
lodsb 
call b2x 
lodsb 
call b2x 
last_2_rc: 
lodsb 
call b2x 
lodsb 
call b2x 
putchar CR 
putchar LF 
ret 
prt_re endp> 


we We Woe we we We We We We We We We We We We 


Is this a 4 byte Return Code? 
-Yes - Displ. only 2 more bytes 
Display sep. Cblank) character 


AL = 3rd byte of RC 
Convert and Display it 
AL = 4th byte of RC 


Convert and Display it 
Display the final 2 bytes 
AL = penultimate byte of RC 
Convert and Display it 

AL = last byte of RC 
Convert and Display it 
Display CR & LF 


Het StS. 0,.9.0,0,9,0,0,0,. 0.0.5, 0,0, 0,0, 0,0,5,0.0,0,5,0, 0, 0,0,0,.0, 0,0. 5,5,8,5, 0. 0,5,0,0,0,0,5.5,0,0,5,5,0,5,0,0,0,0,0,0,9,0,5,0,0,9,0,5,5,5,5,0, 9, 5,54' 


es we 


“ we We We We We We We We We We We We We we we We We We We We We We We We We We We We We We We We We We We We We We We We Bw 
KOK KOK KOK OK OKOK KOK OK OK OK OK OK OOK OK OOK OK KOK OK KOK OK KOK OK OK KOK OK KOK KOK OK KOK OK KOK KOK 


Application Subsystem. 
subsystem. 


Inputs AH = 


Notes 1. 
invocations of APPC/PC. 


Warning 


Process 1. Verify Verb Opcode 


3. Verify TP_NAME field 


If ramote init 


In any case 


7? Crequired by APPC/PC) 
DS:DS points to the verb CTP_INITIATE) control block 
LU_ID of known TP Creturned by APPC/PC on ATTACH_LU) 


2. Names are expected to be in EBCDIC (1 


If local init 
4. Put LU_ID of known TP 
5. Issue TP_STARTED 
6. Copy TP_ID from TP_STARTED CB 
7. Copy TP_ID from TP_STARTED CB 


12. Exit to invoking TP 
Return Codes 00000000 = Qk 

00000003 = BAD_LU_ID 
00000243 = TOO_MANY_TPS 
FO0010000 = APPC_DISABLED 
FO020000 = APPC_BUSY 
FOO030000 = APPC_ABENDED 
FFFFFFFD = INVALID. TP_NAME 

; FFFFFFFE = 

; FFFFFFFF = 


instruction, 


Procedure used to process the PASSTHROUGH requests made of the 
The only verb handled by this sample 
is TP_INITIATE, which 1s a verb defined for this sample 


The stack defined by the Transaction Program must be 
large enough to accommodate this exit, and 


its 


-e@., TP_NAME & LU_NAME) 


The passthrough routine must return to the invoking TP via 
the IRET Cinterrupt return) 
to (not calls) this code. 


Since APPC/PC jumps. 


2. Verify Local/Remote Indicator 


into TP_STARTED Control Block 


into tp_info table 
into TP_INITIATE control block 


8. Retrieve TP_STARTED return code 


9. Copy TP_ID from tp_info table into TP_INITIATE control block 
10. Copy CONV_ID from tp_info table 


into TP_LINITIATE cntrl. block 


ll. Store Return Code in TP_INITIATE Control Block 


TP_STARTED) 
TP_STARTED) 
TP_STARTED) 
(from TP_STARTED) 
(from TP_STARTED) 
Cunique to subsys) 


(from 
(from 
(from 


INVALID_LOCAL/REMOTE_INDICATOR (also unique) 
INVALID_TP_VERB_VARIANT 


3H 3 IE IE I HE HEE BE DE BEI 3 3 ID IE I HEE HEE BEI IHC HEI EI HEE HEH HH IE HK IIH HK HK IE IE HK KK HH IIH HH KK HK HHH HK 


°x 

> 

passthru proc far 
push ax 
push bx 
push cx 
push dx 
push di 
push 51 
push es 
mov ax,dataseg 
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, 
d 
? 
Pd 
9 
e 
? 
° 
g 
? 
> 
g 


Invoked by the TP Cvia APPC/PC) 
Save entry value of mod. regs. 


Point ES to Subsys Data Segment 
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mov es,ax , 
mov bx, dx ; have DS: BX point to Cntr Block 
, 
xor ax,ax ; Note All 4 bytes are swapped 
not ax ; DX: DX = & byte Return code 
mov dx,ax ; = INVALID_TP_VERB_VARIANT 
cmp word ptr ¢bx|.tp_init_opcode, 0 ; Ver. verb opcode 
je al ; 
jmp set_rce ; 
al: dec ah > Return Code = INVALID. 
>; LOCAL/ZREMOTE_INDICATOR 
5% 
;>* See if TP agrees with us on source of its init (local or remote) 
> % 
xor cl,cl ; Zero CL 
or cl,es: as_ind >; Cl=as_ind 
and cl,remote_ tp > Mask off 0-6 
xor cl,byte ptr rebels tp_init_indicator ; Agreement? 
jz check tpn ; Yes 
jmp set_rc ; No 
3% 
>;* Se ore if TP Name supplied on TP_INITIATE matches that suppl. initially 
>* (1 via keyboard or incoming ALLOCATE) 
He 
check_tpn: dec ah >; Return Code = INVALID_TP_NAME 
xor ch,ch > CL = length of 
mov cl,¢bx|.tp_init_tpname_len ; TP name 
lea Si of fect ébx|.tp_init_tpname ; Addr of TP Name field 
mov di,es: tpn_offset 
inc di 
He 
>* At this point 
; * ES:DI -> Table entry of TP Name known to subsystem CEBCDIC) 
> * DS:SI -> TP name specified on TP_INITIATE CEBCDIC) 
> * CX = Length(TP Name) = 1..64 (Trail EBCDIC blanks allowed) 
:% 
cld ; 
repe cmpsb ; Are TP Names equal? 
je comp_loc > Yes - TP_INITIATE 1s valid 
jmp sat rc >; No - Invalid TPN specified 
>* Is it a local initiate? 
comp_loc: test byte ptr ¢bx]|.tp_init_indicator,remote_tp 
j2 loc_init > Yes 
3% 
>* It's a remote init return TP_ID and CONV_ID to TP 
push ds ; 
push es > Exchange DS & ES segm. pointers 
pop ds >; so DS points to subsys data segm. 
pop es >; & ES points to the TP's data seg 
copystr2 ¢bx/¢81|,¢bxl.tp_init_tpid,8 
copystr2 ¢bx|1¢89],¢bx|.tp_init_conv_id,4 
push es ; Restore DS, so it potnts back 
pop ds ; to the TP's data segment 
xor ax,ax >; Set 4 byte return code = OK 
xor dx, dx ; 
jmp set_rc ; 
He 
>* If local, we need to issue TP_STARTED, which needs LU_ID parameter, 
>* | 
loc_init: push ds ; 
push eS ; Have both ES & DS point to subsys 


data segment 


pop ds ; 
copystr2 ¢bx|¢73|,tp_strt_chb. teu start_luid,8 


appc_pe 3,tp_strt_cb > 


push bx 


APPC/PC CTP_STARTED request) 
; Save offset for TP_INITIATE CB 
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mov bx, dx >; Have DS: BX>TP_STARTED Ctrl.Blk 
copystrl ¢bx|.tp_start_tpid,¢bx/¢81],38 ; Put TP_ID into table 


pop di ; DI = offset for TP_INITIATE CB 
pop es > Setup ES for cpy from TP_STARTED 
push es ; control block to TP_INTITIATE 


copystr ¢bx|.tp_start_tpid,¢dil.tp_init_tpid,8 ; Copy TP_ID 


les dx,¢bx|.tp_start_re ; Retrieve TP_STARTED return code 
mov ax,es 3; Make DX: AX the 4 byte ret.codede 
pop ds ; Rest. DS CInv. TP's Data Segm) 
a 

set rc: mov word ptr ¢bx|.tp_init_rct0,dx ; Store 4 byte Ret.code 
mov word ptr ¢bx|.tp_init_ret2,ax ; 
pop es ; Restore entry value of mod.regs 
pop S$] ; 
pop di ; 
pop dx ; 
pop cx ; 
pop bx ; 
pop ax ; 
iret > Return to invoking TP 


passthru endp 
>--Stop and wait for operator to hit Enter.... 


; stop proc near 

; display tstop 

; mov ah,Oah | 
; mov dx,offset dumbuf 
; int 21h 

; ret 

>;stop endp 


;-~-Stop and wait for operator to hit Enter.... 


‘wes We Ww 


;* Data area for saving stack pointer across Load & Exec (DOS) Requ. 
;* Note The reason for placing it here Crather than in the data seg), 


~~ 


> * is so that it 1s addressable off of the CS register. 

;% 

a 

saved_ss dw 0 3; Saved SS: SP (see step 8) 

saved_sp dw 0 ; 

, 

5 HEHE IE IE HE DE DE HE IE IE EE DE IEE DE IE HE DE DEE DE HE IK DE DE IE SE IE IE KK DEE IE HE IE IE DEE IK HE DE HE DE IE EE DE HE OE OE DE HK HE DE EK OE EE OEE 

>* DOS entry point. aS 

ESS See Sees ese eee eee eee eS ee SPE EEE EEE ESS EEE htt tttittetsttetetstotatetetetetetotetstot.: 
-list 

gen_as proc far 


3% 
>* Initialize the stack for a return to DOS. 

>* On entry, DS & ES point to the Program Segment Prefix (PSP). 
Xx 


push ds ; Use the Seg value of PSP 
xor ax,ax ; Offset of "Return to DOS" 
push ax ; request CINT 20) tn the PSP 


.% 
>* Point DS and ES to the data segment. 

>* N.B. These pointers remain in effect until Step 7, except for a 
>% temporary DS change in Step l. 

7% 


mov ax,dataseg ; AX = Segment value of dataseg 
mov ds,ax ; Put 1t tn DS 
mov bx,offset_env >; (save environment address in 
mov tp_parmblk.env_addr,bx ; parameter block, see step 8) 
push es ; 
mov es,ax ; Put 1t in ES too 
pop prefix >; Save PSP address (see step 5) 
assume es: dataseg >; Inform assembler about ES 

HE 

>* 1. Verify that APPC/PC is installed. 

3% 

? 
push ds >; Save DS Ci.e., dataseg) 
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Clear AX 

DS points to low memory 

SI > to APPC/PC interr. vector 

DS:SI > to APPC/PC entry point 

> DS:SI to APPC/PC signature 

DI points to expected value 

Clear the direction flag 

Length of signature 

Is the APPC/PC sign. 

Restore DS 

Is APPC/PC loaded? 
No - display message 

& exit to DOS 


ax,ax 

ds,ax 

s1,4 * appc_int 
si,¢si | 

51,9 

di,offset signature 


cx, 7 


rep present? 


SNAmissing 
exit 


display 
jmp 
-list 
nop 


_— 
we We We We We wo We We We We We We We We 


contl: 


7>* 2. Translate ASCII names to EBCDIC (e.g., TP names) 
3% 
display xlate_msg 
> First translate all the 8-char fields 

mov conv_cb.convert_length,38 

mov word ptr conv_cb.convert_sourcet2d,ds 

word ptr conv_cb.convert_source,offset att_pu_cb.attachpu_netid 
mov word ptr conv_ch.convert_targett2,ds 

word ptr conv_ch.convert_target,offset att_pu_cb.attachpu_netid 
appc_pc 251,conv_chb >; Translate PU Net ID to EBCDIC 
printre conv_cb.convert_rc,RC_4 


mov 


word ptr conv_cb.convert_source,offset att_pu_cb.attachpu_puname 
word ptr conv_cb.convert_target,offset att_pu_cb.attachpu_puname 
appc_pe 251,conv_cb ; Translate PU Name to EBCDIC 
printre conv_cbh.convert_rec,RC_4 


mov word ptr conv_cbh.convert_source,offset cnos_cb.cnos_pluname 
mov word ptr conv_cbh.convert_target;offset cnos_cbh.cnos_pluname 
appc_pe 251,conv_ch > Translate Partner LU Name to EBCDIC 
printre conv_cbh.convert_rc,RC_4 


mov word ptr conv_cb.convert_source,offset cnos_cbh.cnos_modename 
mov word ptr conv_cbh.convert_target,offset cnos_cbh.cnos_modename 
appc_pe 251,conv_cb ; Translate Mode Name to EBCDIC 
printre conv_cb.convert_rc,RC_4 
; call stop ; 
>* Following CONVERTS loop through tp_info table 


lea si,tp_info 
conv_tbl: cmp byte ptr ¢sil,0 ; End of table? 
je set_p_t >; If so, go to Step 3 
mov conv_cbh.convert_length,8 
mov word ptr conv_cb.convert_source, si 
add word ptr conv_cbh.convert_source,65 
mov word ptr conv_cbh.convert_sourcet2,ds 
mov word ptr conv_cbh.convert_target,si 
add word ptr conv_ch.convert_target,65 
mov word ptr conv_cb.convert_targett+2,ds5 
appe_pe 251,conv_cb > Translate LU Name to EBCDIC 
; call stop 
push S] 
printre conv_cb.convert_rc,RC_4 
pop Si 
mov conv_cb.convert_length, 64 
mov word ptr conv_cbh.convert_source,si 
inc word ptr conv_cbh.convert_source 
mov word ptr conv_cbh.convert_target,si 
inc word ptr conv_cb.convert_target 
appc_pc 251,conv_cb > Translate TP Name to EBCDIC 
push S1 
printre conv_cb.convert_rc,RC_4 
pop 51 
add s1,108 >; SI -> next entry in table 
jmp conv_tbl ; Do it again 


3% 
;* 3. 


Set up Passthrough mechanism. 
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cae eo am nop 
push ds 
push cs H 
pop ds ; 
mov dx,offset passthru ; DS:DS -> Passthru routine 
appc_pe 255 > SET_PASSTHROUGH request 
pop ds >; Restore DS 
JSSSSTSSST SST SSSSS=TZSSXJTRACE=====SSS555=525 
DISPLAY TRMSG 
KBINP 
CMP TFLG,*Y' 
JE DOT 
CMP TFLG, ty! 
JE DOT 
jmp trcoon 
dot: nop 
mov ah,252 ;trace msgs 
mov al,l 
mov dx,8&0 
int 68h 
mov ah,253 »trace api 
mov al, 
mov dx,80 
Int 68h 
mov ah,254 ,;output dest 
mov al,4 ;data set 
mov dx, offset trinfo 
int 68h 
trecon nop 
POMS SSS SS SSS SSS SBSH HST ZTTRACE=S==S==S555555=5=55= 
3% 
>* ATTACH PU 
;% 
display att_pu_msg 
appc_pe l,att_pu_cb > Ga. ATTACH_PU 
printre att_pu_cb.attachpu_rc,RC_ 4 
; call stop ;temp stop for testing 
3% 
>;* ATTACH LU 
3% 
copystr trn_plu_aa,pnl_lu_cbh.part_lu_adapt_addr,6 
; mov pnl_lu_cb.part_lu_adp_adrlen, 06h > len-TR-adp-addr 
mov word ptr att_lu_cbh.attachlu_createtp, 0000h ;queue 
mov word ptr att_lu_cbh.attachlu_createtpt2,0000h ;Allocates 
mov conv_ch.convert_length,8 


mov word ptr conv_cbh.convert_source,offset att_lu_cb.attachlu_luname 

mov word ptr conv_cbh.convert_target,offset att_lu_cb.attachlu_luname 
appc_pe 251,conv_cb >; Translate LU Name to EBCDIC 
printre conv_cb.convert_rcec,RC_4 

mov word ptr conv_cb.convert_source,offset pnl_lu_cb.part_lu_pluname 

mov word ptr conv_cbh.convert_target,offset pnl_lu_cb.part_lu_pluname 


appc_pc 251,conv_cb > Translate Partner LU Name to EBCDIC 
printre conv_ch.convert _re,RC_4 
mov word ptr conv_cbh.convert_source,offset mode_cb.mode_modename 
mov word ptr conv_cbh.convert_target,offset mode_cbh.mode_modename 
appce_pe 251,conv_cb >; Translate Mode Name to EBCDIC 
printre conv_cb.convert_rc,RC_4 
% HRN 
display att_lu_msg 
appc_pc l,att_lu_cb ; ATTACH_LU 
KKK 
printre att_lu_cbh.attachlu_rc,RC_4 
copystr att_lu_cb.attachlu_luid,tp_info.luid,8 
; call stop ;temp stop for testing 
display actdlc_msg ; 
> MRR 
appc_pe l,actdle_cb ; ACTIVATE the TR 
3 RKKX 
printre actdlc_cbh.act_dlce_rc,RC_4 
; call stop ;temp stop for testing 
display cnos_msg 
mov cnos_cb.cnos wedesesotiw 0 tb stest 


128 IBM 3725 NTRI Planning and Implementation 


KHHH 
appc_pc 6,cnos_cb >; 4d. CNOS - Session Limit = 1 
KXRRX 
printre cnos_cb.cnos_pri_rec,RC_6 
; call stop ;temp stop for testing 
3% 
>* 5. Invoke DOS to release (i1.e., shrink) memory thus making room for 
3% the transaction program (TP). 
> ¥ The size of the application subsystem must be computed to perform 
3% this function. This value is computed using the following: 
a 
> * size Cin paragraphs) = Addr (Stack) + Length€Stack) - Addr(PSP) 
. x 
Pd 
7 ¥ The reason this works its that the stack area is placed last by 
> * the linker, since its segment name (stackseg) is higher than that 
>* of both the code segment (codeseg) and the data segment (dataseg). 
2% 
> x Note: ES = Segment of block to be shrunk 
> ¥ BX = Requested size (paragraphs) 
x 
shrink: push es >; Save current ES value 
mov es,prefix >; ES = PSP Segment address 
mov bx,s5 > BX = Stack Segment address 
add bx,20h > Add stack size (paragraphs) 
mov ax,es > Subtrack starting segment 
sub bx,ax ; from ending to compute length 
mov ah,4Ah >; Request - SETBLOCK 
int dos_int > DOS Function Request 
pop es ; Restore initial ES value 
Bie: shrink_err >; SETBLOCK request unsuccessful 
jmp init_wtl > SETBLOCK request successful 
shrink_err:display setblk_err ; No - display message and 
jmp takedown ; take down the session 
3; ¥ 
Ae 6. Loop to wait for an init request, local (via keyboard) or remote. 
Init_wtl: copystr att_lu_cbh.attachlu_luid,getall_cbh.getalloc_luid,8 
init_wt2: lea bx,getall_chb ; DS:BX >GET_ALLOCATE contr.block 
>* CHANGE_LU here 
and as_ind,not bad_tp >; Reset ‘Bad TP*' indicator 
and as_ind,not remote _tp; Reset 'Remote TP’ indicator 
display await _msg >; Inf. user of what we are doing 
rd_kbd: mov ah, 0Bh ; Check keyboard input status 
int dos_int ; DOS function call 
cmp al,QFFh ; Character available? 
je a5 ; Yes: go and see what 
jmp get_alloc ; No: check incoming ALLOCATE 
a5: mov ah, 0Ah ; Buffered keyboard tnput 
lea dx,in_area > DS:DS -> Input area 
int dos_int > DOS function call 
cmp in_area.actlen,0 ; Anything actually entered? 
jne a4 ; If so, convert it 
jmp get_alloc If not, go to GET_ALLOCATE 
a4: mov conv_cb.convert ene thy 64 
mov word ptr conv_cb.convert_source,offset in_area.tpn 
mov word ptr conv_cb.convert_target,offset in_area.tpn 
appc_pe 251,conv_cb > Translate entered TPN to EBCDIC 
Printre conv_cbh.convert_rc,RC_4 
; call stop 
cmp in_area.actlen,l >; Single char entered? 
jne findtp_l > If not, find TP name in table 
cmp in_area.tpn,0A39h >; Did he enter 'z' (converted)? 
jne findtp_l ; 
i jmp takedown > If so, end the subsystem 
6 Search for TP name in table 
Fiadtes l: 
cld ; Compare forwards 
lea si,tp_info ; DS:SI -> tp_info table 
comp_l1: lea di,in_area.tpn ; ES:DI -> entered TP name 
xor ch,ch > CX = Length of entered TP name 
mov cl,in_area.actlen ; 


copystr att_lu_cb.attachlu_luid,cnos_cbh.cnos_luid,8 
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cmp byte ptr ¢sil|,0 ; End of table? 
je not_fnd_l ; Yes 
cmp cl,¢s1 ; Do the lengths agree? 
jne next _] ; No - move to next entry 
push Ss] ; Yes - save SI for later 
inc 51 ; DS:SI -> tpname field 
repe cmpsb ; Have we found it? 
je found_l ; Yes 
pop S] ; No - first restore SI 
next_l: add 51,108 ; DS:SI -> next entry in table 
jmp comp_l ; Do it again 
not_fnd_l: display bad_tp_msg > Tell the user his TPN no good 
or as_ind,bad_tp >; Set the "Bad TP' indicator 
jmp clr_input ; 
found_l: pop tpn_offset >; Rest. offset of matching entry 
y 


display fnd_tp_msg Tell user TP name found 


>* Copy LUID into table entry 
mov ax,tpn_offset 
copystril att_lu_cb.attachlu_luid,¢bx|¢73|[,8 


>* Clear the input area 


clr_input: xor ch,ch- 
mov cl,in_area.maxlen Length of input area 
mov s1,0 Initial offset 


clr_char: mov in_area.tpn¢si|,20h 
Inc 51 


Blank a byte 
Point to next char 


we we we We We 


loop clr_—char Do it again 
test as_ind,bad_tp >; Do we have a bad TP? 
jn2 get_allocl > Yes - try a GET_ALLOCATE 
jmp execute >; It's good so load it 
get_allocl: 
and as_ind,not bad_tp >; Reset 'Bad TP* indicator 
get_alloc: appc_pcec 3,getall_cb > Try a GET_ALLOCATE request 
push es > Save ES for later 
les dx,¢bx|.getalloc_re ; Retrieve the Return Code 
mov ax,es ; DX:AX = 4 byte Return Code 
pop es >; Restore saved ES 
or dx,dx ; Are first 2 bytes zero? 
jn2 alloc_err 3; No - something is really wrong. 
cmp ax,8202h >; Yes - 15 RC = UNSUCCESSFUL? 
jne a3 
jmp rd_kbd ; Yes - Try keyboard 
a3: or ax,ax ; No - is RC = OK? 
jz good_alloc ; Yes - ALLOCATE received 
alloc_err: ; No - takedown 
display bad_alloc > Dsply "GET_ALLOCATE error" msg 
printre getall_cb.getalloc_rc,RC_4 ; 
jmp takedown ; Unexpected GET_ALLOCATE error 
good_alloc: ; 
display alloc_msg >; Dsply "ALLOCATE received" msg 
printre getall_cb.getalloc_rc,RC_4 
7x 
>* 7. Verify tncoming ALLOCATE request against known TP list. 
7% 
> N.B. DS & ES chop and change in this step to cater for references 
3% to CREATE_TP record within APPC/PC. 
3% 
lds bx,¢bx|.getalloc_createtp ; DS:BX >CREATE_TP ctrl.blk 
; Note: ES -> Subsys data segment 
push ds ; Exchange DS & ES, so 
push es ; DS > Subsys data segment 
pop ds ; & ES:BX > CREATE_TP ctrl record 
pop es ; 
mov ax,0810h ; AX:DX = SENSE_CODE 
mov dx,2160h >; AX:DX €10086021) TPN not Recogn. 
;* Loop to find TP name in table 
cld ; Compare forward 
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comp_r: lea 


inc 
repe cmpsb 
je 


next_r: add 


found_r: pop 


, 

>**¥*X test next in 
Jmp 
mov 


cmp 
3 ne 
mov 


cmp 
jne 
mov 
mov 
cmp 
jne 
cmp 
jne 
setx: xor 
xor 
jmp 
not_fnd_r: or 
push 
push 
display 
pop 
pop 
set_sense: mov 
mov 
push 
push 
pop 
pop 
test 
jz 


jmp 
>* Put APPC/PC info 
upd table: 
copystrl 
copystrl 
push 
push 
pop 
copystrl 
POP 
tovalid: copystr 


push 
pop 


copystr getall_cb. 
push 
push 
appc_pe 


pop 
pop 


si,tp_info ; DS:SI -> tp_info table 
di,¢bx|.createtp_tpname ; ES:DI -> revd TP name 
ch,ch >; CX = Length of recvt TP name 
cl,es:¢bx]|.createtp_tpnamelen 
byte ptr ¢si],0 ; End of table? 
not_fnd_r ; Yes 
cl,¢sil ; comparing name lengths 
next_r > Not the same, so move on 
S] ; Otherwise save SI 
Sj > DS:SI -> tpname field 

; the names 
found_r > We have a match 
Si >; No match - first restore SI 
51,108 > DS:SI -> next entry in table 
comp_r > Do it again 
tpn_offset > Rest. offset of matching entry 
fnd_tp_msg > Tell user TP name found 
stop 
str 
setx ; 
dx, 3460h > AX:DX (10086034) CONVERSATION 


>; Type Mismatch 
es:¢bx|.createtp_convtype,0 
set_sense > 
dx,4160h >; AX:DX €10086041) Syne Level 
; not Supported 
es:¢bx|.createtp_synclevel,0 


set_sense ; 

ax,0F08h ; 

dx,5160h >; AX:DX (€080F6051) Sec. Not Valid 
es:¢bx|.createtp_pwlen,0 

set_sense ; 
es:¢bx|.createtp_useridlen,0 

set_sense ; 

ax,ax 3 

dx, dx > AX:DX (00000000) OK 

set _sense ; 

as_ind,bad_tp >; Set the 'Bad TP' indicator 
dx 

ax 

bad_tp_msg > Tell user bad TPN received 
ax 

dx 


word ptr es:¢bx|.createtp_sensecodet0,ax ; Store the 
word ptr es:¢bx|.createtp_sensecodet2,dx ; SENSE CODE 
ds > 

es , 

ds > DS -> CREATE_TP 

es > ES -> Subsystem data segment 
es:as_ind,bad_tp >; Do we have a good TP? 

upd_table ; Yes ~- update table 


tpvalid ; No - issue TP_VALID 

into our table entry: 
¢bx|.createtp_tpid,¢bx]¢81],8 
¢bx|.createtp_conv_id, ¢bx|/¢89]|,4 
ds ; 
es ’ 
ds > DS, ES -> Subsystem dataseg 


att_lu_cb.attachlu_luid,¢bx|¢73|,8 
ds >; DS > CREATE_TP, ES > dataseg 
¢bx|.createtp_tpid,tp_vald_cb.tp_valid_tpid,8 


es ; : 
ds > DS, ES -> Subsystem dataseg 


getalloc_createtp,tp_vald_cbh.tp_valid_createtp,4 
ax 


dx 

4,tp_vald_cb > Issue TP_VALID verb with 
; appropriate block 

dx > Restore the Sense Code 

ax > 
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or ax,ax ; Non-zero SENSE_CODE? 
jnz2z rejected ; Yes ~ ALLOCATE rejected 
or dx, dx ; Maybe - check next 2 bytes 
jn2z rejected > Yes ~ ALLOCATE rejected 
display acceptmsg ; No - ALLOCATE accepted 
call stop 
: x CHANGE_LU here with message 
or as_ind,remote_tp ; Set 'Remote TP’ indicator 
jmp short execute | >; Execute the TP 
rejected: display rejectmsg >; Tell local user of rejection 
jmp init_wt2 ; Resume waiting for an init 
, 
;% 
>* 8. Invoke DOS to Load and Execute the TP 
3x 
>* Warning: The only registers which are "preserved" across the 
> % LOAD_AND_EXECUTE request are CS & IP, so care must be 
>* taken to save any registers Important to your program 
> % on the stack, then save 55 & SP in the code segment or 
> * some other addressable area. 
7% 
execute: 
display exe_tp_msg > Inf. user of what we are doing 
; call stop 
push ds > Preserve DS 
push es > & ES across execution request 
mov cs:saved_ss,s55 >; Save the stack pointer (S5:5SP) 
mov cs:saved_sp,sp ; in the code segment 
mov dx,tpn_offset 
add dx,93 ; 
mov | bx,offset tp_parmblk; ES:BX point to DOS Param. Block 
mov ax,4B00h 3; Load & Exec DOS Funct. Request 
int dos_int > Execute the Trans. Program 
cli >; Dis. interr. while chg $5S:5SP 
mov sp,cs:saved_sp ; Rest. the stack pointer (55:SP) 
mov SsS,cs:saved_ss ; from within the code segment 
sti >; Re-enable interrupts 
pop es , 
pop ds > Restore DS & ES 
7x 
>* The TP has ended Cand returned). Resume waiting for an init request. 
3% : 
jmp init_wt2 
3% 
>* 9. Deactivate resources as prelude to subsystem termination. 
takedown: ; 
mov cnos_limit,'O' >; Correct CNOS message 
display cnos_msg ; and display it 
copystr att_lu_cb.attachlu_luid,cnos_cbh.cnos_luid,8& 
mov cnos_cbh.cnos_modesesslim,0 
mov cnos_cb.cnos_winnersesslim,0 
mov cnos_cbh.cnos_autoactivate, J 
appc_pe 6,cnos_cb > CNOS - Session Limit = 0 
printre cnos_cbh.cnos_pri_rc,RC_6 
display det_lu_msg 
copystr att_ lu_ ch.attachlu_ Laid, det_lu_cb.detachlu_luid,8 
appc_pe 1,det_lu_cb > DE ACH__ LU 
printre Hees lu _cb. detachlu_rce,RC_4 
display det_pu_msg ; 
appce_pc 1,det_pu_cb > DETACH _PU 
printre det_pu_cb.detachpu_rc,RC_4 
3% 
>*10. Reset the Pass-through mechanism 
3% 
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push 
xor 

not 
mov 
appc_pc 
pop 


ds > Save DS 

dx,dx > 

dx >; DS:DS = FFFF:FFFF 

ds,dx > 

255 >; SET_PASSTHROUGH (reset) request 
S >; Restore DS 
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, x 
>*¥11. Exit to DOS 


.% 
’ 
exit: ret ; See notes at progr. entry point 
gen_as endp 
codeseg ends 
end gen_as | 
5 HEE IEE I IE HK HIE IE DE HEE HEHE HEH I HE HEE HE HE HE EK HEE HE EK EE HE HE HE HE HEE EH HE EK HK HK KK KK 
>* END of APPLICATION SUBSYSTEM ¥ 


Het tt 2.2.2 2.0.2. 0.2.2.0. 0.0.0. 5,.0.0,.0.0.0.0,.0.0,0 0.2, 0.0,.0.0.0,.0,.0,.0,.0, 0.0.0.0. 0,0, 0,0,0,0,.0,.0,.0,0,0,0,0,0,0, 0,0, 0,5,5, 0,0, 0,.0,0,0,5,0,5): 
HES to. 8.0.2, 0,2,5,.0.%,0.0.0,0.0,5,5,5,0,0,0,.0,0,.0,.0,.0,0.2,0,5,0,0,5,0,0,0,0,0,.0,.0,.0,.0.0.5,.9,.0,0,0.0,0,.0.0,.0,0,.0,.0,.0,.0,0,.8,0, 0.0.0. 0,5,. 08,8; 
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13.2 APPC/PC - PC TRANSACTION PROGRAM EXAMPLE 


gE IE HK DE HK DE EE EK DE EK DEE DE HE HE IE EEE KK EK EK IE HK EE HE EK HEE HEE EE HE KE HE EK HE EK HK HE EK HE HK HEHE HEHE K KM KKK KKK 


3% 
7x 


;* Purpose: To provide a sample transaction program which invokes the 


;*% Notes: This program uses a verb implemented in the appl. subsys. 


3% APPC/PC & Application Subsystem verbs issued: 


’ 
> HEH HK HHI I HK EE HE HK EK EE EH KK HE EH KE HK HE KK IK IE HK HEH HE IK HK KK HH HK HHH HK HK HK HHH KKK KKK HK KKK KKK 


TEST TRANSACTION PROGRAM 


remote CICS transaction ,AIBR, over an SDLC link. 


(via the PASSTHROUGH mechanism) called TP_INITIATE. 
It also uses the EZ-VU product for handling panels. 


KK KK KK KOK OK OK OK OK OK OK OK OK OK«OK 


1. Translate ASCII names to EBCDIC 

2. TP_INITIATEClocal) CApplication Subsystem unique verb) 
3. ALLOCATE (start the remote TP) 

4. SEND_DATA (send some data to the other TP) 

5. RECEIVE (Receive CICS response) 

6. DEALLOCATE (terminate the conversation) 

7. TP_ENDED (bring down TP) | 

7. Exit to DOS Cand Application Subsystem) 


5 HEH IE HEE HEME HE EH HEH I HEHE HEHE IE EE IE IE HE IE HE HEE HE IE IEE IE IEE HE IE IEE IE HE DE IE DE HE HE DE HE HEE EE EK EE EE KK KKH 
>* Data Structure Definitions ¥ 
EEE ee ee eee SE EEE EEE eee ek bb tkedtiksttatstetatatstetsdetotatetedetatetotatitetetetetototetetetetetatetitel 


; % 


include 
include 
include 
include 
include 
include 
include 


3% 
;* Macro 
;* Note: 
He. 
appc_pc 


3% 
;* Macro 


3;* Notes: 


3% 
3% 
display 


3% 
>* Macro 
;* Note: 
x 


> 
putchar 


3% 
;*% Macro 
3;* Note: 


>* Include the necessary APPC/PC verb structure definitions. 


allocate.str 
convert.str 

dealloca.str 
sanddata.str 
rev_wait.str 
tp_ended.str 
tp_init.str 


ALLOCATE Data Structure 
CONVERT Data Structure 
DEALLOCATE Data Structure 
SEND_DATA Data Structure 
RECEIVE & WAIT Data Structure 
TP_ENDED Data Structure 
TP_LINITIATE Data Structure 


we Woe We We Wea Ws We 


used to invoke APPC/PC 
AX & DX are modified. 


macro request,ctrl_blk 

ifnb <ctrl_blk> 

mov dx,offset ctrl_blk ; DS:DS >to APPC/PC control block 
endi f 

mov ah,request >; APPC/PC Function Request 

int appc_int ; APPC/PC Interrupt Request 

endm 


to display a message on the screen. 
AX & DX are modified. 
The end-of-string Creferenced by DS:D5) is terminated by '$!' 


macro msg 

mov dx,offset msg ; DS:DS points to message 

mov ah, 9 ; DOS function request number 
ae dos_int ; Have DOS display the message 
endm ? 


to display a single character on the screen. 
AX & DX are modified. 


macro char 

mov dl,char 3; DL = character to be displayed 
mov ah,2 > DOS function request number 
int dos_int ; Have DOS display the message 
endm 


to call EZ-VU dialog manager 
AX is modified 
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DMPC MACRO TYPE,PARMS 
IRP X,<PARMS> 
MOV AX,OFFSET X 
PUSH AX 
ENDM 
CALL TYPE 
ENDM 


HE 
;* Macro to set up registers for a CALL to procedure PRT_RC 
>* Note: CX & SI are modified. 


3% 

printrce macro rc,type 
lea Ssi,re ; DS:SI -> Return Code 
mov cl,type >; CL ind. kind of return code 
call prt_rce >; Display the Return code 
endm 

3% 


;* Macro to copy a sequence of characters from source to target. 
>* Note: CX, DI & SI are modified. 


3% 
a 
copystr macro source,target, length 

cld ; Clear the direction flag 

lea si,source >; DS:SI = Address of source 

lea di,target >; ES:DI = Address of target 

mov cx,length >; CX = Length Cbhytes) 

rep movsb ; Copy CX from source to target 

endm 

page 
HS 2 2222.2 ff SS tee ee eet eee se sere ee eet eee ees eee eee eee e250 555. 5.5. 5.2.2. 5.0.5,.5,. 0. 5.5,5,8,) 
>* Data Segment —- DATA * 
Het 2.0.0.0. 0.2.0.2 28 22 22 ee Petes et £22 22.2.0. 6.5.0.6 0.5. 8.0,5,0,0,5,0,0,.5. 5.5.0, 5,0,0, 5,5, 5,5,5,5,5,5,5,5,5,5,8,5,5,5,9,5,5 
data segment para public ‘data’ 
7x 


>* Llocate and initialize the control block data structures. 

,% | 

p= ==> MC_ALLOCATE block for CICS - AIBR transaction 

alloc_ buf allocate ee ee ear ae ere ery |e es CICS11', "APPCNEGB',4,'AIBR's,,,5555> 
23 456789 012 34 5 6 7 89012345 

conv_buf convert <> ; CONVERT 

conv_asc convert <,5551555»> CONVERT 

deall_buf dealloca <,,1,5,,5,,,,01,,> MC_DEALL. (flush) 

send_buf senddata <,,1,,,,5,,,,data_len,data_msg> MC_SEND_DATA 

rov_buf rev_wWwait <,,1555552:1,,326,,data_buf> MC_RCV_WAIT 

tpend_ buf tp_ended <> TP_ENDED 

,; ===> TP_ INIT control block for TSK1_TP.EXE 
tones buf tp_init <,,»,,local_tp, 'E13L0203',,,7,'LOCALTP'> 


.% 
td 
>% Equates used by the transaction program 


we we We We We BW 


izero equ 0 
EQU la 
F EQU i ad 
BK EQU "BRB! 
eee es error message numbers -------- 
initer equ 1 >; TP_INIT error message 
vdefer equ 2 > VDEFINE error 
aaa error message numbers -rrc 7-7" 
RC_4 equ >; & Byte Return Code Indicator 
RC_6 equ 1 > 6 Byte Return Code Indicator 
local_tp equ 0 >; Local/Remote Indicator values 
remote_tp equ 1 ; 
CR equ 13 ; Carriage Return 
LF equ 10 ; Line-Feed 
dos_int equ 21h ; DOS Interrupt Request 
appc_int equ 68h » APPC/PC Interrupt Request 
3% 
>* Massages displayed by transaction program 
+x 
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rc_equals' db "Return Code = $° 


xlate_msg db "Translating names from ASCII to EBCDIC.',CR,LF,'$!' 
inittp_msg db "Initiating the Transaction Program.',CR,LF,'S$' 
initerr db "TP_INIT error *,CR,LF,'S$* 
alloc_msg db Y,ALLOCATING the conversation.',CR,LF,'$' 
ezvuer db "EZ-VU ERROR RETURN CODE = ',CR,LF,'$* 
vgetmsg db "VGET ERROR RETURN CODE = ",CR,LF,'*$* 
send msg db "Sending the following data:' 
alloc_cmp db "ALLOCATE COMPLETE TS CRILE.NS* 
alloc_bad db "ALLOCATE FAILED ",CR,LF,'$! 
sendbad db "SEND FAILED ',CR,LF,'$' 
sendok db "SEND COMPLETE r,CR,LF,'$! 
pf3msg db ™% X *,CR,LF,'$* 
pf4msg db YX P F 4 KKK *,CR,LF,'S' 
revbad db "RECEIVE FAILED *,CR,LF,'$' 
badata db "BAD DATA RECEIVED *,CR,LF,'$' 
crlf_msg db CR,LF,LF,'S' 
deallocmsg db *DEALLOCATING the conversation.',CR,LF,'$! 
tp_end_msg db "Ending the Transaction Program.',CR,LF,'$' 
3% 
>* Allocate memory for TP data structures, and values. 

db CR,LF,LF,'S' > Term. char. for DOS display r 


equest 
> 


> parameters for the dialog manager 
LEN DW 13 


1 
PARM DB "DISPLAY tsklil' 
PARM2 DB "DISPLAY TSK12'" 
RC DW 0000H 
LENC DW 13 
PARC DB "CONTROL CLEAR’ 


VDP 1 DB "BRKEY C* >;FOR DEFINING THE USER 
BRKEY DB : : s;ENTERED BROWSE KEY DATA 
B DB : : 3FOR 

C DB . : ; PAGING 

D DB . : ; 

VDP2 DB "SCRL C’ 

SCRL DB ae 

VDL2 DW 7 

VDL21 DW 4 

SYSID DB : : 

VDL1 DW 7 

VDL11 DW 6 

BLNK6 DB : : ; 


QFLG DB 0 
TFLG DB 0 


ZLEW DW 11 
VDPLI DB ‘'LINE1 C* 
LINEL DB 39 DUPC' '*) 378 CHARACTERS 


VDISIZ DW 78 
VDPL2 DB 'LINE2 C* 


LINE? DB 39 DUPC® *) 378 CHARACTERS 
VDPL3 DB ‘LINES C? 
LINES DB 39 DUPC' '*) 378 CHARACTERS 
VDPL4 DB ‘LINE C! 
LINES DB 39 DUPC' '*') 378 CHARACTERS 
TSTBUF DB 8,0,'° : 
TRINFO DD 0 

DW 100 

DW 0000h 


0 
LCNT DW 0 
RESET DW 0 

¢C 


SINPUT TO CICS 


data_msg equ $ 
TRAN DB 0C1H,0C9H,0C2H,0D9H,40H ;AIBR CEBCIDIC) 
KEY DB '000000° >USER ENTERED BROWSE KEY 
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data_len 


equ 


SOUTPUT FROM CICS 


> 


S-data_msg 


data_buf db 200 dup(’ = ') 


;receive buffer 


PUT THE STACK AREA WITHIN THE DATA SEGMENT 


SAK 
ESAK 
data 


64 DUPC™STACK...™) 


OFFH 
ends 


ME SSS S58 SESS Sie 2S e282 28 28S SSS SE. 8 SSS Sata tatatatetetatatetatetetatetetat a taketetatetatatstetaketatetetatate: 
>* Code Segment - CSEG 
HIE FE IE HE EK HEE HK HE KK EK IE KE IK EK EK MK EK IE EK EE EE HE KE IE HK DE KK EK EK HE HEE HE EK EE KE KKK HK HEH HH 


cseg 


3% 


segment para public 


assume 


"code’ 


3 


cs:cseg,ss:data,ds:data,es:data 


>* Procedure to convert the binary value in AL into 2 hexidecimal 


> * characters, 
AX, 


>* Note: 


s 


b2x 


b2x_digit: 


b2x_dec: 


b2x 


~~ we w we we We we We We 
K KK KK OK K K OK 


prt_rc 


last_2_rc: 


Procedure to 


DS:$ 
CL = RC 
CL <> 


Input: 


Note: 


proc 
xor 
push 
mov 
shr 
call 
pop 
and 
cmp 
jle 
add 
add 
putchar 
ret 
endp 


AX, CX, 


proc 
push 
display 
cld 


putchar 
putchar 


_4 


near 
ah,ah 

ax 

cl1l,4 
ax,cl 
b2x«x_ digit 


al,'O! 
al 


near 
cx 
reo_equals 


b2x 


we we we we We We We We We We We we we We 


we wwe Ws We We We We We We We We We We We We We We We we We We We 
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and display each of them on the screen. 
CX & DX are modified. 


Local to the Appl. Subsystem 
Clear out AH 
Save the initial value of AL 
CL = shift count (bit pos.) 
Shift low order bits out of AX 
Convert the digit & display it 
Restore initial value of AL 
Mask off low order bits 
Is it a normal decimal digit? 
Yes 
Ho ~ convert 10..15 => "A'..'F! 
Change binary value into char. 
Display the character 
Return 


display the return code on the screen. 

-> Return Code value to be displayed 

implies 4 Byte Return Code 

RC_¢4¢ implies 6 Byte (primary/secondary) Return Code 


DX & SI are modified. 


Save Return Code Type ind. 

Display Return Code message 

Insure Auto-itincrement on Loads 

AL = First byte of RC 

Convert and Display it 

AL = 2nd byte of RC 

Convert and Display it 

Restore Return Code Type ind. 

Is this a 4 byte Return Code? 
Yes - Dsply only 2 more bytes 

Display separator (blank) char. 


AL = 3rd byte of RC 
Convert and Display it 
AL = 4th byte of RC 


Convert and Display it 
Display the final 2 bytes 
AL = penultimate byte of RC 
Convert and Display it 

AL = last byte of RC 
Convert and Display it 
Display CR & LF 
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ret | ; 


prtore endp 

dbugd proc near 
MOV AH, OAH . 3% 
MOV DX,OFFSET TSTBUF 3; TEMP 
INT 21H ; % 
ret 

dbugd endp 


@ 
, 
. 
, 
° 
td 


« 
, 


HEH HK HE HE EH EK HE EK EE EK EE EE EE HE EK EE EE EE EK EE HE EK EE EE EE EE EE EEK HEE MMMM 
* DOS entry point. ¥ 


MAIN PROC FAR >ENTRY POINT FROM DOS 


EXTRN ISPASM:FAR s;NAME OF INTERFACE MODULE 
EXTRN ISPASMV: FAR 


BEGI: MOV AX, DATA 


MOV SS, AX ;SS==>DATA SEG 

MOV ES,AX > SET AUX SEGMENT REG 

MOV BX,OFFSET ESAK 3 STACK IS WITHIN DATA SEG 

DEC BX 

MOV SP ,BX ;SP==>END OF STACK AREA 

PUSH DS >;SAVE PSP ID 

MOV DS,AX > SET DATA SEGMENT REG 

XOR BX,BX > THE DOUBLE WORD VECTOR SO THE 
PUSH BX ; FAR RETURN WILL GO BACK TO DOS 


START USER CODE HERE 


DMPC ISPASM,<LENC,PARMC,RC> ;CLEAR SCREEN 
DEFINE EZ-VU VARIABLES 
DMPC ISPASMV,<VDL1,VDP1,RC,BRKEY,VDL11> 


CMP RC, IZERO SRETURN CODE OF 
JE ELSE03 ; 0 OR 8 
CMP = RGB ; IS OK. 


JE ELSE03 
display ezvuer 
CALL dbusgd 

Jip ENDIFO6 


ELSEQ3: NOP 
DMPC ISPASMV,<VDL11,VDP2,RC,SCRL,ONE> 
CMP RC, IZERO s;RETURN CODE OF 
JE ELSE06 >; 0 OR 8 
CHP RC,8 > IS OK. 


JE ELSE06 
DISPLAY EZVUER 
CALL DBUGD 
JMP ENDIF06 


ELSE06: NOP 


, 
° 
of 
° 


DMPC ISPASMV,<VDL1,VDPL1,RC,LINE1L,VDISIZ> ; VDEFINES 
DMPC ISPASMV,<VDL1,VDPL2,RC,LINE2,VDISIZ> ; FOR 
DMPC ISPASMV,<VDL1,VDPL3,RC,LINE3,VD1ISIZ> > SCREEN 
DMPC ISPASMV,<VDL1,VDPL4,RC,LINE4,VD1ISIZ> 3 VARIABLES 


; x 


* 1. Translate ASCII names to EBCDIC (e.g., TP_NAMES) 
¥ 


Sd 
translate: nop 


mov conv_buf.convert_length,8 ; Translate all the 8 character names 
mov word ptr conv_buf.convert_sourcet2d,ds 

mov word ptr conv_buf.convert_source,offset alloc_buf.allocate_pluname 
mov word ptr conv_buf.convert_targett+2,ds 

mov word ptr conv_buf.convert_target,offset alloc_buf.allocate_pluname 
appc_pc 251,conv_buf ; Translate Partner LU name to EBCDIC 

mov word ptr conv_buf.convert_source,offset alloc_buf.allocate_modenam 
mov word ptr conv_buf.convert_target,offset alloc_buf.allocate_modenam 
appc_pce 251,conv_buf > Translate Mode Name to EBCDIC 


mov word ptr conv_buf.convert_source, offset tpinit_buf.tp_init_luname 
mov word ptr conv_buf.convert_target,offset tpinit_buf.tp_init_luname 
appc_pc 251,conv_buf > Translate LU Name to EBCDIC 


° 
> 
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mov conv_buf.convert_length,64 ; Now translate the 64 character names 
mov word ptr conv_buf.convert_source,offset alloc_buf.allocate_tp name 
mov word ptr conv_buf.convert_target,offset alloc_buf.allocate_tp name 
appc_pc 251,conv_buf >; Translate TP Name to EBCDIC 


mov word ptr conv_buf.convert_source,offset tpinit_buf.tp_init_tp name 
mov word ptr conv_buf.convert_target,offset tpinit_buf.tp_init_tp name 


appc_pc 251,conv_buf >; Translate TP Name to EBCDIC 
3% 
3% 2. TP_INITIATEClocal) CApplication Subsystem unique verb) 
3 ¥ 
appc_pc 7,tpinit_buf > TP_INITIATEClocal) CAppl.Subs. verb) 
cmp word ptr tpinit_buf.tp_init_rcect2,0000h ;0k ? 
je gcon 


display initerr 
printre tpinit_buf.tp_init_rec,RC_4 
jmp endif07 
gcon: nop 
CLD ;CLEAR' BRKEY' 
MOV SI,OFFSET BLNK6 
MOV DI,OFFSET BRKEY 
MOV CX,3 
REP MOVSW 


DISPLAY A CICS-LIKE PANEL AND GET USER ENTRY 


DMPC ISPASM,<LEN,PARM,RC> >DISPLAY THE PANEL 
CMP RC,20 >;20 = SEVERE ERROR 
JNE ELSE09 >; 0 OR 8 
display ezvuer 
CALL dbugd 
JMP ENDIFO07 

ELSE09: NOP 


CMP WORD PTR BRKEY,' ° >1F NULL ENTRY 
JNE ELSE04% 
JMP ENDIFO7 >QUIT 
ELSE04%: NOP 
DMPC ISPASM,<LENC,PARMC,RC> >;CLEAR SCREEN 
> Convert the key value from ASCII to EBCIDIC 
mov conv_buf.convert_length,6 >; Translate 6 char key 
mov word ptr conv_buf.convert_sourcet2,ds 
mov word ptr conv_buf.convert_source,offset brkey 
mov word ptr conv_buf.convert_targett2,ds 
mov word ptr conv_buf.convert_target,offset key 
appc_pe 251,conv_buf > TRANSLATE TO EBCIDIC 
>; INITIAL PG_FD RIPPLE : 
copystr key,brkey,6 s;make brkey ebcidic 
CLD 


MOV SI,OFFSET BRKEY 
MOV DI,OFFSET B 


MOV CX,9 

REP MOVSW 

MOV QFLG,00h s;RESET QUIT_FLG 
Sees SSSrrsrssses TRACES =SSSSS25S55252555255 
; cmp tflg,00h 
; je conl 
; mov ah,253 >**% enable trace_api 
: nov al,l 
; Int 68h 
; mov ah,252 ;** enable trace_msg 
; mov al,l 
; mov dx,80 
; int 68h 
; mov ah,254 ;**% PUT DATA ON 
; mov al,4 ; OUTPUT.PC 
; mov dx,offset trinfo 
; int 68h 
conl nop 
prema TBST sSsSssccs TRACES pani orc ere ig vel gee 


> DO UNTIL CQFLG IS SET) 


APPENDIX E: Sample Sources for APPC/PC 


139 


DONTL1: NOP 
3 * | | 
>* 3. ALLOCATE (allocate a session and a conversation 
>% with AIBR’) 
copystr tpinit_buf.tp_init_tpid,alloc_buf.allocate_tpid,8 
display alloc_msg ; Inf. user of what we are doing 
; CALL DBUGD 
allo_loop: appc_pc 2,alloc_buf ; ALLOCATE the remote TP 
cmp alloc_buf.allocate_pri_rc,0000h 3; ok ? 
je alloc_ok ;yes 
cmp alloc_buf.allocate_pri_rc,1400h ; Prim. RC = 0014? 
jne alloc_el > Error 
printre alloc_buf.allocate_pri_rc,RC_6 
jmp allo_loop > Keep trying 
; push es >; Save ES 
; les dx,alloc_buf.allocate_sec_re 
; mov  ax,es >; DX: AX = Sec. Return Code 
> pop es > Restore ES 
; or dx, dx >; Is secondary RC = 00000005 ? 
; jne alloc_el ; No 
> cmp ax,0500h ; Maybe 
; je allo_loop ; Yes ~- Retry the ALLOCATE 
alloc_el: display alloc_bad sallocate bad 
printre alloc_buf.allocate_pri_rc,RC_6 
call dbugd 
mov qaflg,01lh 3; stop the dountil 
jmp enddol 
alloc_ok: nop 


display alloc_cmp ;allocate complete 
printre alloc_buf.allocate_pri_rcec,RC_6 
call dbugd 


; SEND A BUFFER TO CICS 
copystr tpinit_buf.tp_init_tpid,send_buf.senddata_tpid,8 
copystr alloc_buf.allocate_conv_id,send_buf.senddata_conv_id,4 


appc_pe 2,send_buf > Send the message 
cmp send_buf.senddata_pri_rc,0000h ; ok ? 
je elsela ;yes 
display sendbad 
printre send_buf.senddata_pri_rc,RC_6 
call dbugd ; 
mov aqflg,Qlh ; stop the dountil 
jmp enddol | 
elsela: nop 
; display sendok 
H call dbugd 
;WAIT FOR CICS TO RESPOND 
copystr reset,rcv_buf.rcv_wait_datalen,2 ;clear 
copystr tpinit_buf.tp_init_tpid,rcv_buf.rcv_wait_tpid,8 
copystr alloc_buf.allocate_conv_id,rcv_buf.rcv_wait_conv_id>,4 
appc_pe 2,rcev_buf > Wait for data from CICS 
mov ax,rcv_buf.rcv_wait_pri_re ; AX = Primary Return Code 
cmp ax, 0 ; zero return code? 
je elsedb ; Yes 
display rcvbad ; No 
printre rev_buf.rcv_wait_pri_re,RC_6 
call dbugd 
mov qaflg,0ih > And display the recetved message 
jmp enddol 
elselb: nop 
7% 
>* 5. DEALLOCATE (terminate the conversation) 
7% 
copystr tpinit_buf.tp_init_tpid,deall_buf.dealloca_tpid,8 
copystr alloc_buf.allocate_conv_id,deall_buf.dealloca_conv_id,4 
; display deallocmsg > Inform user of what we are doing 
appc_pc 2,deall_buf >; Deallocate the conversation 
; Printre deall_buf.dealloca_pri_rcec,RC_6 
; display the data received from CICS 
call ddom 
enddol: nop ;check dountil condition 
cmp aqflg,00h 
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jne pass ;stop 
copystr brkey,key,6 ;set next start browse key 
jmp dontll 
pass: nop 
ENDIFO7: NOP 
>x 
>* 6. TP_ENDED (bring down TP) 
3% 
copystr tpinit_buf.tp_init_tpid,tpend_buf.tp_ended_tpid,8 
; display tp_end_msg >; Inf. user of what we are doing 
appce_pc 4,tpend_buf >; TP_ENDED verb 
; printre tpend_buf.tp_ended_rc,RC_4 
7% 
>* 7. Exit to DOS Cand Application Subsystem) 
3% 
endif06: nop ; 
exit: rat >; See notes at prog. entry point 
main endp 
> x 
>* Procedure to display data on the EZ-VU panel 
3% 
DDOM PROC NEAR 
mov ax,rcv_buf.rcv_wait_datalen ;get length of data 
cmp ax, 86 smin size is 8&6 
ja ddok 
display badata 
call dbugd 
mov aflg,981h 
jmp ddexX 
ddok: nop 
copystr data_buf,brkey,6 ;5ave last key 
mov bx,offset data_buf ;start of data 
add bx, 6 ;step past last-key 
; init for display loop 
mov ax,offset line 
add ax,l 
push ax 
mov ax,offset Lined 
add ax,l 
push ax 
mov ax,offset lined 
add ax,l 
push ax 
mov ax,offset linel 
add ax,l 
push ax 
mov lent,4 s;initialize loop count 
dolpl: nop 
pop dx ;get ptr to next line 
mov ax,0¢bx | ;get lst char 
cmp ah, OD5H 3,15 this the -end file- 
je pas3 
add bx, 1 ;lst byte is blank 
pas3: nop 
mov conv_asc.convert_length,6 ; convert key field 
mov word ptr conv_asc.convert_sourcet2,ds 
mov word ptr conv_asc.convert_source,bx 
mov Word ptr conv_asc.convert_targett2,ds 
mov word ptr conv_asc.convert_target,dx 
~ push dx 
push bx 
appc_pe 251,conv_asc ;convert KEY field 
pop bx 
pop dx 
add dx,1l >5+Key field size 
add bx,6 ;step to Name field 
mov conv_asc.convert_length,20; convert name field 
mov word ptr conv_asc.convert_sourcet2,ds 
mov word ptr conv_asc.convert_source,bx 
mov word ptr conv_asc.convert_targett2,ds 
mov word ptr conv_asc.convert_target,dx 
push dx 
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push bx 


appc_pce 251,conv_asc sconvert NAME field 
pop bx 
pop dx 
add dx,20 ;step past Name field 
add  bx,20 
mov conv_asc.convert_length,20; convert ADDRESS field 
mov word ptr conv_asc.convert_sourcet2,ds | 
mov word ptr conv_asc.convert_source,bx 
mov word ptr conv_asc.convert_targett2d,ds 
mov word ptr conv_asc.convert_target, dx 
push dx 
push bx 
appc_pe 251,conv_asc ~ 3conver ADDRESS field 
pop bx 
pop dx 
add dx,20 ;step past Address field 
add bx,20 
mov  conv_asc.convert_length,10; convert SERIAL field 
mov word ptr conv_asc.convert_sourcet2,ds 
mov word ptr conv_asc.convert_source,bx 
mov word ptr conv_asc.convert_targett2,ds 
mov word ptr conv_asc.convert_target,dx 
push dx 
push bx 
appc_pe 251,conv_asc ;SERIAL field 
pop bx 
pop dx 
add dx,14 
add bx,16 step by SERIAL 
mov conv_asc.convert_length,8 ;AMOUNT field 
mov word ptr conv_asc.convert_sourcet2,ds 
mov word ptr conv_asc.convert_source,bx 
mov word ptr conv_asc.convert_targett2,ds 
mov word ptr conv_asc.convert_target,dx 
push dx 
push bx 
appc_pe 251,conv_asc ;AMOUNT field 
pop bx 
pop dx 
add bx,17 | ;step to next data rcd 
sub Icnt,1 
cmp lIcnt, 90 
je pass2d 
jmp dolpl 
pass2: nop 
; DISPLAY THE DATA PANEL 
DMPC ISPASM,<LEN,PARM2,RC> ;DISPLAY THE PANEL 
CMP RC,20 ;20 = SEVERE ERROR 
JNE ELSEDO ; 0 OR 8 
display ezvuer 
CALL dbugd 
JMP DDEX 
ELSEDO: NOP 
DMPC ISPASM,<LENC,PARMC,RC> >;CLEAR SCREEN 
CMP SCRL,E 
JE DDEQ 
CMP SCRL,F 
JHE CHKB 
COPYSTR C,D,6 > PAGE 
COPYSTR B,C,6 ; FORWARD 
COPYSTR BRKEY,B ; 
| JMP DDEX 
CHKB: NOP 
CMP SCRL,BK ;I1S IT PG_BK 
JNE DDEQ 
COPYSTR C,BRKEY,6 >PAGE 
COPYSTR C,B,6 > BACKWARD 


COPYSTR D,C,6 


142 IBM 3725 NTRI Planning and Implementation 


DDE: 
DDEX: 


ddom 
cseg 


JMP 


DDEX 
QFLG,1 


BEG1 


22 2.2.0. 0.0.0. 2.2 0.0.0. 0,.0. 0.0.0.0. 0.20.2, 0,.0,2,2,0,.0,2,0,5,0,5,0,0,0,5,05,5,0,0,0,0,5,0,01,0,0,0,0,0,0,0,0, 0, 0,0, 0,9,5,0,0, 0.0.0.8, 
2.2.2.2. 0.0.0. 0.2.2,¢.2,0.5,.0.0.0,0,0.0,.0.20.0.0,9,.0.2,.9,2.5,5,0,5,0,0,0,.0,0,0,0,2,0,5,5,5,5,9,5,0,0, 0,9, 5,0,0,. 9,5, 0,0,0,0,0,0.0,0.8,) 
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